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A professional specification C Compiler 
for the QL! Designed by (i! LATTICE® 
QLCisa complete implementation of 
the Kernighan and Ritchie definition of C. 
QL Cis endorsed by Sinclair Research; it Is 


the most powerful and fully featured C 
compiler available for the QL. 
p Complete Kernighan and Ritchie implementation. 
pm Proven fa LATTICE® design, compatible with 
LATTICE® compilers on iBM PC, etc. True 
compiler producing native 68000 code. Powerful 
data types such as pointers, arrays, structures, and 
unions. Comprehensive library of UNIX, QDOS 
pe Over 90 detailed error 


and utility functions. 
messages. Separate compilation. P Macros, 
conditional compilation, and other pre-processors. 


> Linker to link program modules; will also link to 


other relocatable binary mod 
pm Chosen by Sinclair Researc 


for the QL. 
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> BCPL modules can be linked with Assembler and Pascal modules. -bit 
bler a les. 32 


LI P £59°95 INC. VAT 
guages of the '80s, widely 
d artificial intelligence. 


! A profes- 
atures for the 


LISP is oné’of the key programming lan 


> Full support of 
> Compatible with Acornsoft Lisp for the BB 
i it easy to control the QL's graphics. 


tures. > Interpreter. 
> Structure editor allows alteration 0 a printer displays 
id i i Garbage collec- 


ace. B> 28-bit integers and 


ee een KIT includes Metacomco' 

o ‘te zl screen editor, and a detailed ran, j 

oe $ will operate either on a standard aL 
se using QL peripherals such as flo 

disks or memory expansion. oa 


250-character names. 


Available from W.H. Smi 
4 .H. Smith, i 
Menzies and many com oe ear: pres 
s and many co Siler siareser e today or post this coupon to: Metacomco, 26 
BEACOmneD. | Hepes ne i aa O QL PASCAL £89-95 al pal a ee ence 
: INFORMATI eee 3 
se We ON Ol enclose a cheque for £ Se ce ereneaay 
= eS ea ee Le eal Peete Expiry Date 
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lit ristol (0272) 428781 
nthe USA call: 1-800-252-6382 
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The first annual Sinclair QL World 
awards had a roaring start in 
December's QL World and we were 
flooded with letters concerning the 
companies which you thought whould 
be honoured for their work with the 
QL. Reviewing for a moment the 
original plan for the awards, we asked 
you to vote for products for the 
following categories: 

Best arcade game software; best 

-business software; best strategy 
game; best QL disc system; best RAM 
upgrade; most innovative new QL 
product. 

Starting with the last category first, 
the only one in which we did not make 
our nominations for you to vote on, the 
nominees for most innovative new QL 
product were: 

The Tandata QL modem system; 
the ABC Gigasoft mouse and EASE 
system; the ICE user-friendly 
desk-top from Eidersoft; QL Flight 
from Microdeal; the Bright Star 
modem; Quill Version 2.0; Digital 
Precision Supercharge Basic 
compiler. 

Itwas good to see such a wide mix 
of nominations from the hardware and 
software fields but there was one 
nominatien which occurred again and 
again, the fantastic Microdeal Flight 
Simulators 

Inthe Best RAM upgrade category, 
we selected three companies for 
nomination in our entry form — 
Silicon Express, Simplex and PCML. It 
was a tight race in this field — there 
was even a write-in nomination for 
Miracles systems — but you judged 
the Simplex RAM upgrade the best of 
its type. 

On the disc system front, there 
were six nominees — CST, PCML, 
Technology Research, Silicon 
Express, Cumana and Micro- 
Peripherals. The runaway winner in 
the disc sweepstakes was Silicon 
Express, with the Micro Peripherals 
unit achieving an honourable mention. 

The Best Strategy Game category 
also produced a convincing winner in 
Psion QL Chess program which beat 
an impressive field of nominees which 
included QL Reversi, Digital Precision 
Super Backgammon and Psion Match 
Point. 

Neither was business software 
ignored by our busy readership. The 
nominated software in this category 
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was QL Integrated Accounts, QL 
Entrepreneur, QL Cash Trader, QL 
Home Finance and Transact — even 
though we had one write-in 
nomination for Xchange, which is not 
available on the QL. The winner was 
the Triptych package. 

In the final category, best arcade 
game software, where the 
nominations comprised QL Cavern, 
QL Meteor Storm, Lands of Havoc and 
Zapper, it was another Microdeal 
program which took top prize. You 
voted Lands of Havoc the best QL 
arcade game of 1985. 


Business Venture 


Stevenson & Partners informed us of 
its soon-to-be-released business 
software, which has been developed 
on the QL, utilising the Psion Archive 
program and consisting of an 
integrated Maintenance Planning and 
Stock Control package. 

It should be suitable for any small 
to medium business with a 
maintenance problem, for example 
industrial units or office buildings. 

The program occupies about 20K, 
and, if stored on mdv1_ with the 
Archive program, it is then feasible to 
operate the program on Microdrives, 
using mdv2_ solely for the databases. 

Price for the package will be 
around £80, Details from suppliers on 
0428 51500. 


Atari: Soft On QL? 
Atari, the other major hardware 
company using the Motorola 68000 
chip in a home computer, has 
launched two new machines which 
could herald the start of a boom in 
software for low-cost 68000-based 
computers. 

The Atari 520STFM and 520STM, 
512K RAM computers with and 
without a built-in disc drive 
respectively, will be available from 
April at £399 for the discless model 
(520STM) and £499 for the machine 
with one built-in 3.5in. disc 
(520STFM). QL users may be 
interested to note that some QL 
software is being converted for the 
machines will hope that some 
software developed for the Atari will 
also be converted for memory- 
upgraded 512K QLs. There are, 
however, two major problems in doing 
sO. 


First, the Atari machines use the 
Macintosh-like popular Graphics 
Environment Manager mouse, picture 
and pull-down, menu-driven system. 
There have been discussions 
between Digital Research and Sinclair 
about porting this to the QL, although 
so far no agreement has been 
reached. 

Secondly, and perhaps more 
important, software houses have no 
way of knowing exactly how many 
512K QL upgrades have been sold by 
the various manufacturers, nor are all 
the expansion kits compatible with 
one another. 


Adventures in 3D 


French software house Pyramide 
have announced the release of six of 
their programs in this country. Among 
them are three design utilities, a 
programming language and two 
games. The most exciting of the six, 


scion 


Grove, London N3 3PX. 01-349 2764. 


Super Toolkit 

The new Super Toolkit from Care 
Electronics. The 16K EPROM 
cartridge is accompanied by a 
comprehensive user manual and a 
‘library rack’ — a handy piece of 
plastic with slots for up to half a dozen 
microdrives. 


8 GL Super TOOLKIT GL 


and certainly one of the most original 
games to appear on the QL is 
Wanderer, a 3D arcade game in the 
Elite mould. 

The game is supplied with a pair of 
red and green glasses of the type you 
get when you go to see a 3D film at 
the cinema. When viewed through the 
glasses, the out of register images on 
the screen combine to produce a 
remarkably realistic 3D effect. The 
result is quite stunning. Against a 
backdrop of stars, seemingly far in the 
distance, ships zoom out of the 
screen, turn, and disappear off to one 
side. The control panel is cleverly 
made to appear as though it extends 
out of the screen into your living room. 

The other programs in the 
Pyramide range are Nucleon, Painter, 
Remember, Turtle Logo, and Othello. 
They are all available by Mail order 
from Rio Promotions Ltd, 28 Waverly 


PART THREE 
BITS 
ON 
THE 


We continue our look at printers with a 
review of the prestige Brother M-1509— 
and other less expensive options. 


AT AROUND £460, the Brother M-1509 is scarcely the 
cheapest of printers likely to be attached to the QL— 
but it is no.ordinary printer. With features such as 180 
characters per second, near letter quality, optional 
tractor feed and 136-column print width, it is likely to 
prove an attractive option to businesses and anyone 
who makes extensive use of Abacus. 

There is little to fault in this printer's design. The 
two-tone casing has five colour-coded microswitch 
controls on the front panel of the type common on 
photocopiers. Three are the familiar on-line, line-feed 
and form-feed switches. The remaining two are used 
to select NLQ and the paper type, which can be either 
continuous, single-sheet or a cut-sheet feeder. 

In operation, the printer performs admirably and 
other design features not at first apparent come to 
light. It has RS232 and parallel interfaces, so connect- 
ing it to the QL occasions few problems. The power 
supply and RS232 lead plug in on opposite sides of the 
machine towards the front. At first sight that looks 
rather strange, as well as occupying more desk space, 
but it leaves the paper path free of interference. 

Another unusual feature is the tractor feed, which 
pushes the paper through rather than pulling it. 
Perhaps it was surprising that the Brother refused to 
chew up anything, despite some encouragement on 
our part. Had we been successful the printer would 
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have ceased operating and turned on the check light 
on the front panel. That is a very useful feature for 
someone who has reams of hard copy to produce but 
lacks the time or inclination to play babysitter to the 
printer all day. 

Next to column width, probably the most importan 
consideration for most people is print quality. In draft 
mode, the Brother produces fairly unremarkable do 
matrix text at 180cps. In NLQ mode the speed falls to 
45cps, still impressive when compared to daisywhee 
output and faster than most other dot matrix printers 
offering NLQ. Perhaps because of the increased speed 
near letter quality is not all you might expect. The prin 
is improved sufficiently so that the individual dots 
which make up each character become indiscernible 
but the characters are not printed cleanly. The resul 
looks much like the product of a typewriter with a 
worn-out ribbon. 

For those for whom high-quality printing is high on 
the list or priorities there are other options. Bold, 
underlined, italic, condensed and enlarged print can 
be produced under software control, i.e., from Quill. 
Additionally, plug-in printed circuit boards are avail- 
able which provide extra fonts. One of them, the 
LQ200, provides 16K of extra buffer in addition to the 
resident 3K of the M1509. That can be used either for 
your own downloadable character sets or as an 


’ 
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enlarged print buffer to free the QL for other opera- 
tions while printing continues. 5 

Itis the first Brother printer to be aimed exclusively 
at the business end of the market and undoubtedly it~ 
will appeal to those who require high-volume, reliable 
output combined with flexibility — at a price. 

Those who do not have more than £400 to spend on 
aprinter will be interested to learn of the launch of two 
less exorbitantly-priced Brother models, the 1109 and 
1409. 

At a recommended price of £385, but probably 
cheaper depending on where you buy it, the 1409 
offers virtually all the features of the 1509 without the 
wide carriage. Like its twin, it has RS232 and Cen- 
tronics ports, built-in tractor feed, and a socket for 
plug-in font/RAM boards. 

Large on features, small on price, is the claim made 
for the £225 Brother 1109. In terms of specification it 
differs little from the many other dot matrix printers to 
have appeared in the last six months, That is to say it 
features standard 80-column text width, 100cps, built- 
in tractor feed, NLQ at 25cps, three typestyles and 12 
international character sets. It seems that it is now 
standard practice for Brother to fit all its printers with 
an RS232 port in addition to the Centronics and the 
1109 is no exception. 
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ICE makes all of the day to day housekeeping operations 


on your QL easy. ICE uses pictures (icons) to represent 


functions and programs you are using. ICE is extremely 


powerful and can take action on multiple files, saving 


typing commands over and over again. Most of all, ICE is very 


easy fo use and can be managed by almost anyone! 


ICE complete system £59.95 


them that professional appearance. 


ONLY £9.95 


BD 


BS Lane! 


Amazing! BJ is off again, this time in a 3D 
maze that will pose a challenge to alll. 
Over 75 screens of 3 dimensional action, 
as BJ battles against fireballs, energy 
zappers, lazers and even giant Chess 
pieces! Definitely a must! 


ESSERE sszoro° Bisrsscs za®ker 


Zapper/Eagle 


Other programs |f you require other Eidersoft programs not 


QSPELL £19.99+51 p&p ARCHIVER £18.95+21 p&p 
IMPACCT INTEGRATED ACCOUNTING £179.95 


| Credit Cards — phone 0708 851099 


ICE Toolkit is a library of extensions to Superbasic 
that allow you to use many of the ICE features in your 
own programs. Mouse cursor, pop-up menus, 
boxes, icons, in fact most of the ICE routines can 
easily be incorporated into your programs giving 


mentioned in this advertising please telephone for assistance. 


CUSTOH BACKUP INFO) FORMAT = Gul 


the 
you 


CONTROLLER 


alert 


=) The Belur Drunx has died leaving BJ 
helpless in the caverns. Good Heavens Abovel! 
Matilda the magic fairy has agreed to let BJ go 
providing he collects all the miracles from the 
caverns. A formidable task awaifs you as you 
join BJ in this mega sequel to QL Caverns 


ONLY £10.95 


©\'2©2) Unravel secrets of a giant city as 
you steer your craft through over fifty screens of 
danger and excitment. Superb value for 


money: ONLY £9.95 


= 55): This is one of the best muncher 
games we have seen on a micro! Full features 
include multiple screens, fruits, sliding doors, 


swing doors and much more! 
ONLY £10.95 


Joystick/cursor/sound. 

750 pe) 250 © Two great machine code 
QL games for the price of one! Zapper the 
snappy arcade game is now joined by 


“Defender” style eagle. ONLY £9.95 


Our Software Success Means 
Lower Prices for YOU 


Trade enquiries welcome phone 0708 852647 administration. 


SYSTEMS & SOFTWARE 


ICE comes on EPROM cartridge that 
plugs into the cartridge ROM port at 
the rear of the QL. 

ICE uses next to no user RAM! ICE is 
always available to the user instantly 
no need to load from microdrive or 
disk ~~ ICE is fully compatible with 
the Psion™ applications and most 

QL commercial software ICE is 
fully compatible with Superbasic 
programs and can be called from 
Superbasic ICE is fully compatible 
with microdrives, disk drives and 

RAM disks ICE can be used in 
conjunction with the cursor keys, a 
joystick or a mouse ICE is 
multitasking Boot into ICE or boot 
program TV/Monitor 


ONLY £24. 95 


CHOice is a powerful multitask editor that allows you 
to run several programs simultaneously. It can be used to 
multitask the four Psion packages as well as many others. 
Most important of all, CHOice gives you direct access to 
ICE from other programs so that housekeeping need not 
mean leaving your chosen program. CHOice comes with 
RAM DISK software, a name and address database for 
Archive and a Quill/Archive mailmerge facility. 


ONLY £14.95 


Artice is the ICE drawing program. Artice works in both 
TV and Monitor mode. Artice features freehand drawing 
with a full screen, choice of brushes, colour change, 
texture fill, magnify and reduce, pop-up and pull down 
menus, mouse style cursor, rubber, rubber band lines, 
circles etc, and many other features. It is fully multitasking 
and can be used with the CHOice software if required. 


ONLY £12.95 


Action. Suit all games ai 
‘Sureshot QL £49.95 The ultimate 
Control. - : 
Quickshot QL £12.95 Standard. 

QL Convert Lead for ATARI Joysticks 
£5.49 : : 

x £4 Discount if purchased with 
program. — 


a0c80 0 Go c 
BBBBBS Oe: 
agoaqaQaaaq _— = 
eo0000 Go: 
nOC000 SS = 
[oe tal : 
Aaanraa 2 3 
t+tttts+ = am 
mnunwwww (one ae 
SORA = = fe) 
wNOAOe aa [ag 
==ATa 
Gaara Q (e) 
2s ean << 2S 
x = '@ 
con eemel = S 
é : GT fa 
Bb ie © Ww 
De o) : : =) a 
el ® : a fe) :O 
Sy See > eo 
Sees. 2 2 0 x ims 
= to) : oO) 2 5 
Sago Gt 2 0 Seedy iol 
xc oS & 
(a OoS 2 = 
Oro 2 oS 
i §a8s 5 
~ 220u58 
o£&f500 © 
ee Ss Sp Oo se) 
a ZtaBOGN 9 
S = 
2 Oo OO 2 
> SSSSSS3 ¢: 
Z aaoaacan 
Q 9900900 
9 NOGCOOHH 
Za ieee ct es 
wd AAaAanaaan LON ain 
Q t++teet+ 2 i 
Ow mww ld : 
tT SARAAGCH Siw 
a VYIINaaneo = oS 
faa Ne Lanes £ 
fe) Aang AAA = iS 
Zz pete = 
Ze i gee a i 
£2 :-id0Eeh : Se 
S60: : ? U== : oe = 
$s -ijiegs : % 2B 
+ % 3 th = mare 
42 je ooo 008 
O9 a 2 ASSlo) : Os & 
to : :DBO : Si ES 
OS Se 2 eto : ® ge 
we SS =. o 
5 2 is 2 : 6) 
i Gy Se g Q ~ 
Qa fo) TH) = Oo) 
ES :S9p708Ls = 9 ®, 
Or 2 OO) O10 6 g Se ee 
OO WEewwss a) 0 0 oZ 
Lo aE a Oe a= Fane 
G6 GO<OOGS £ GF eo ae 
aod o oO ome) 
oo WHER 2 = FEO 


QL Price Blitz 


Matchpoint .............ccee £12.50  Hyperdrive .............. ee £1250 SMOOKGN se cecccerseceeamereeemes 


D.S. ENTERPRISES 


0 l -§ 7 l -0 209 Knight Flight .. £12.50 Hopper .. .. £12.50 Cuthbert .... 
Sener .. £12. West ..... .. £12.50 Cosmos ..... 
Q-Draw ...... .. £12.50 Super Arcadia . 


.. £16 — Lands of Havoc . £16 Flight ......... 

.. £16 Bridge Player ... .. £16 Craxy Painter .. 

eer tas . £11 BU the Return .. £9.75 Spook ... 
Meteor Storm .. .. £11 Fictionary ... .. £11 Reversi . 
BJ in 3D Land .. . £11 Citadel .. ... £9  CHOice . 


ae Quboids Artice ......... 
.... £9  QDumps ............... Eagle/Zapper ... 
..£21 Supercharge .. £50  QLMon...... 
= .. £20 Super Sprite .... .. £20 Super Forth 
Super Astrologer .... .. £20 Backgammon .. Bounder ..... 
Classic Adventures Assembler . 


Integ. Accounts Home Finance .. 
Entrepreneur Startrek 


QL Computer 
Expanderam 256K ..... 
Disc IF & Single 312” drive ... 
Printer Interface ......... 
Quickshot II Joystick .. 
Pro 5000 Joystick ...... 
LX80 Printer & Interface .. 
TV Aerial Splitter ........ 


ne Expanderam 512K 

. £90 Cumana Disc IF ........ 
£180 Disc IF & 312” dual drive 
. £26 Joystick Adaptor ...... 
.-. £8 Arcade Joystick ....... 
Microdrive Cartridges .... 
os £265 Transform BOX .......+++++ 
EPROM Programmer 


EPROM Erase with timer . EPROM Socket .... 
16K EPROM Chip ....... LX80 Ribbon ....... 
3in. disc storage box .. QL Advanced User Guide .... 


QL Technical Guide ......... 


Also a large range of Disc systems, Printers, Joysticks and all the latest software 
releases. Phone for more details. 


UK: Add 50p postage to orders under £5 
Europe: Deduct 10% from all software. Add £1.50 postage + 40p for each program. 
Hardware prices as above + £1.50 postage. 
Outside Europe: Add £5 postage. 


MPC Software 
72 Julian Road, West Bridgford, Nottingham NG2 5AN 
Telephone: (0602) 820106 


Assorted books at over 60% off 


For signs, pictures, advertisements, banners and notices. 
Letters any size, any shape, any colour, any stipple, any mode. 
Easy designing & editing. Font editor. 5 fonts included. 


25, TRINITY RISE, LONDON SW2 2QP. 


SOFT FOR THE 


QL 
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ONLY 


For the first time, a 
game which uses 
the full power of the 
QL spatial effects, 
combined with fast 
animation. The 
object will leap out 
of the screen 
thanks to the 


PYRAMIDE 


ONLY AVAILABLE (GZ 
BY MAIL ORDER. Ty 
ENCLOSE CHEQUE 
MADE PAYABLE supplied with the 
TO: game 


a, 


RIO PROMOTIONS LTD. Dept QL, 28 Waverley Grove, London N3 3PX. Tel: 01-349 2764 
TRADE ENQUIRIES WELCOME 


8 Sinclair/QL World April 1986 


POINT TO POINT 


Imagine the loading screen of a game. 
The company name grows out of the 
screen, then collapses, twisting and 
changing into the company logo. 
Changing one shape into another need 
constitute only a change in size, so pic- 
tures of objects can be made to 
increase and decrease in size, giving a 
three-dimensional effect. 
Alternatively, making small changes 
in the data will allow the routine to 
work as a cartoon animator. All you 
need to do is specify the first and last 
picture in each movement sequence 
and the routine will fill in all the posi- 
tions inbetween automatically. You 


can specify how many of those steps. ; 
there will be. There are many other 


possible uses, but we will leave those 
to your imagination. Let us see how the 
routine works, 

The first program you need to type- 
in is Listing One. It is the set-up pro- 
gram which reads the shape data from 
the DATA statements starting at line 
700 and converts it into a byte file. That 
is then saved to Microdrive or disc for 
use by the machine code routine. The 
first four numbers read are SHAPES, 
POINTS, LINES and STEPS. 

SHAPES: This is the number of 
shapes in a complete sequence. For 
instance, if you wanted to convert a 
triangle into a square, which then 
changed into a pentagon, there would 
be three shapes. 

POINTS: This tells the computer the 
maximum number of points in each 
shape. In the preceding example, you 
would need only three points for a 
triangle but five for a pentagon, so that 
value should be five. 

LINES: The maximum number of 
lines which will ever be drawn. Again, 
that is five in our simple example. 

STEPS: When you define different 
shapes, such as a triangle and a square, 
the computer needs to know how 
many in-between positions you want 
in the on-screen animation sequence. 
The machine code program can work 
down to an accuracy of 1/256th of a 
screen pixel, so effectively you can 
have as many steps as you like. Bear in 
mind that the more steps you have the 
slower the sequence will appear on 
the screen. Somewhere between 15 
and 50 is usually fairly good. 


a 
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The next set of numbers gives all the 
data for the various shapes. This 
should be in the form: 


51x0,51y0,51x1,S1y1,51x2,51y2,51x3, 
S1y3, ..., SIXP,S1yP 

$2x0,S2y0,S2x1,52)1,52X2,52y2,52x3, 
2/3, . . ., S2XP,S2yP 


SOQx0,5QV0,SQx1,SQy1,SQx2,sQy2, 


XN 


JN 


Q 


SQX3,SQV3, . . ., SQKP,SQYP 
where: sN 


= shapenumber N. 


iT} 


x-co-ordinate of 

pointN. 

= y-co-ordinate of 
pointN. 

= Totalnumber of 

shapes. 


P+1 = Totalnumber of 


points 


Machine code animation 


without an assembler? 


John Masterson points 


LISTING ONE 


100 CLS 
110 initialise_memory 


120 read_shape_data 

130 read_line_data 

140 calculate_offset_data 
150 save_shape_file 

160 : 


170 DEFine PROCedure initialise_memory 
180 READ n_shapes,n_points,n_lines,n_steps 


200 start=RESPR(memory) 
210 shapes=start+24 


240 POKE_W start+20,n_lines 
250 POKE_W start+22,n_steps 
280 


300 FOR s=0O TO n_shapes-1 
310 FOR p=0 TO n_points-1 


350 END FOR p 
360 END FOR 8s 


190 memory=(6*n_shapes*n_points)+(8*n_points)+(3*n_lines)+24 


220 POKE_W start+16,n_shapes 
230 POKE_W start+18,n_points 


260 lines=shapes+6*n_shapes*n_points+8*n_points 
270 END DEFine initialise_memory 


290 DEFine PROCedure read_shape_data 


where: StartlEnd Points refer to the 
point co-ordinates given in the 
shape data section. So, “0,1,7” 
would specify that point zero 
— i.e. x0,y0 —is connected to 
point one — i.e, x1,y1—with 
a line of colour seven — i.e., 
white. 


Once you have typed and saved the 
program given in Listing One, try run- 
ning it. If everything works properly, 
the computer will prompt you for the 
name ofa file. That will be the name of 
the file containing all the shape data for 


letters ‘QL’ to appear out of the screen, 


as shown, then run it. It will define 
TRANS automatically as a resident pro- 
cedure, usable from SuperBasic, much 
the same as any other SuperBasic pro- 
cedure. If you are told that the 
‘checksum is incorrect’, then you have 
probably made an error when typing- 
in the DATA starting at line 2000. When 
the program has run, typing: 


sbytes mdv1_trans_obj start,650 


will save the machine code separately 
to Microdrive one. Thus, rather than 
having to load and run the SuperBasic 
loader every. time you want to use the 
TRANS procedure, all you need type is: 


320 READ x%,yv% 
330 POKE shapes+6*n_points*s+6*p, xX later use by the TRANS procedure. The oe 
i a a ae data given in the listing will cause the 4="#811650) 


bytes mdv1_trans_obj,a 


370 END DEFine read_shape_data calla 


380) = 

390 DEFine PROCedure read_line_data 
400 FOR 1=0 TO n_lines-1 

410 READ p1%,p2%,col 

420 POKE lines+3*1,p1% 

430 POKE lines+3*1+1,p2% 

4uo POKE lines+3*1+2,col 

450 END FOR 1 

460 END DEFine read_line_data 

LTO: 

480 DEFine PROCedure calculate_offset_data 
490 FOR s=0 TO n_shapes-1 

500 FOR p=0 TO n_points-1 


change into an impossible-looking 
triangle, then disappear back into the 
centre of the screen. Consequently, 
saving the data as ‘mdy1_qltri_data’ 
seems appropriate. 

The next stage is to type-in the 
machine code for the TRANS proce- 
dure. A SuperBasic hex-loader pro- 


Anybody with an assembler, may 
prefer to use the assembly code listing 
three when entering the machine 


code. 

Finally, we are ready to try the pro- 
cedure. Having run the hex-loader, 
without turning off the machine, type 


510 sh=(s+1) MOD n_shapes yous (eeetre ¢ . nN 
520 x1=PEEK(shapes+6*n_points*s+6*p) gram is given in Listing Two. Just type it ‘NEW’ and enter the program shown in 
530 y1=PEEK( shapes+6*n_points*s+6*p+1) 

540 x2=PEEK(shapes+6*n_points*sh+6*p) 

550 y2=PEEK(shapes+6*n_points*sh+6*p+1 ) LISTING TWO 

560 x=(x2-x1)/n_steps 

570 y=(y2-y1)/n_steps 100 CLS 

580 POKE_W shapes+6*n_points*s+6*p+2, INT(256*x) a Ope eeeseeE (650) en 

590 POKE_W shapes+6*n_points*s+6*p+l, INT(256%y) 120 PRINT"Loading Hex...":hex_load start 


130 CALL start 

14o STOP 

150 : 

160 

1000 DEFine PROCedure hex_load(start) 

1010 

1020 DEFine FuNetion decimal(x) 

1030 RETurn CODE(h$(x))-48-7*(n$(x)>"9") 
1040 END DEFine decimal 

1050 : 

1060 byte = 0 : checksum = 0 

1070 RESTORE 2000 

1080 READ h$ : IF h$="*" THEN GO TO 1240 
1090 IF LEN(h$)<>2*INT(LEN(h$)/2) THEN 
1100 PRINT"Odd number of hex digits in: ":h$ 
1110 STOP 

1120 END IF 


600 END FOR p 

610 END FOR s 

620 END DEFine calculate_offset_data 

630 : 

640 DEFine PROCedure save_shape_file 

650 INPUT \"Filename (incl. device)? ";f$ 
660 DELETE f$ 

670 SBYTES f£$,start,memory 

680 END DEFine save_shape_file 

690 : 


700 REMark SHAPES, POINTS, LINES, STEPS 


eS 1130 FOR b=1 TO LEN(h$) STEP 2 

720 DATA 3,18,15,30 1140 hb=decimal(b):1b=decimal(b+1) 

730 ! 1150 IF hb<O OR hb>15,OR 1b<O OR 1b>15 THEN 
. 1160 PRINT"Illegal hex digit in: ";h$ 

740 REMark SHAPE DATA 1170 STOP 

750: 1180 END IF 


1190 POKE start+byte,16*hb+1b 
1200 ehecksum=checksum+16*hb+1b 
1210 byte=byte+1 

1220 END FOR b 

1230 GO TO 1080 

1240 READ check 

1250 IF check<>checksum THEN 

1260 PRINT"Checksum incorrect 
1270 STOP 

1280 ELSE 

1290 PRINT"Checksum is correct." 

1300 PRINT"Data entered at: ";start 

1310 END IF 

1320 END DEFine hex_load 

2000 DATA "30780110", "43FA0006", "LEQO", "LE75", "0001", "OOOE", "05", "5452414853" 
2010 DATA "000000000000", "30780118", "4E90", "6600004A", "70F1" cugzooo4" 

2020 DATA "66000040", "24769800", "2E369804", "5387", "U9FAO234". "1976980B0005" 
2030 DATA "3976980E0006", "61000024", "226A0008", "302A0012", "5340", "4299" 


760 DATA 120,100,120,100,120,100,120,100,120,100,120,100 
770 DATA 120,100,120,100,120,100,120,100,120,100,120,100 
780 DATA 120,100,120,100,120,100,120,100,120,100,120,100 
790 : 

800 DATA 98,160, 80,40,116,40,98,160,116,40,98,160 

810 DATA 116,160,100,120,100,100,116,160,100,100,116,160 
820 DATA 124,40,124,160,160,160,160,160,132,144,124,40 
830 : 

840 DATA 142,160, 80,160, 80,144,137,144, 84,132,134,132 
850 DATA 84,132,116,40,124,40,92,132,127,52,100,132 

860 DATA 127,52,156,148,150,160,123,65,142,160,119,79 
870 

880 REMark LINE DATA 

890 


Recheck data." 


900 DATA 0O,1,1,1,2,1,2, Pale ear eis al 2040 DATA "51C8FFFC", "2652", "61000040", "51CFFFF8", "6100009E", "4280", "4E75" 

910 DATA 6,7,2,7,8,2,8 2050 DATA "248A", "069200000018", "302A0012", "COEA0010", "E388", "2200", "E388" 
oN San Nea ey 2060 DATA "D081", "25520004", "D1AAOOOU", "302A0012", "UBCO", "E588" 

920 DATA 12,13,3,13,14, 2070 DATA "256A00040008", "D1AA0008", "256A0008000C", "D1AA000C" 


2080 DATA "4E75","382A0010", "5344", "2AUB", "264D", "6100002E", "3C2A0016", "5346" 

2090 DATA "61000044", "36200006", "343COFFF", "51 CAFFFE","51CBFFF6", "61000030" 

2100 DATA "6100009E", "51CEFFF6", "51CCFFD2", "4E75","302A0012", "5340" 
"2A6A000L" 


. . . . 248, . . . : 2110 DATA "224B","3A11","3CO 1205", "3AC5", "E1L4E", "3AC6", "5C89", "51 CBFFFO" 
Above is the principal SuperBasic listing for operating our simple animation SA SDLDAMAGMUE Tete taOBAGOOS™s M2z6AGoO4'". "2AgAOOORY, AADAOOINT. V5 5n4%ON SEEN 
. ’, . : : .. Ses. 2130 DATA "1418", "E54A", "4243","1618", "E54B", "18B52000", "197520020001" 
demonstration. It’s worth typing and running before proceeding with Listing two. EUS Bananas Te aceb COD BIA Ton RaCO Beno Sil WOE OOS COON. "LAR RON 
2150 DATA "61000054", "4CDF20FF", 18B12000", "197120020001", "197130000002" 
2160 DATA "197130020003", "19580004", "U8E7FFOA", "6100002E", "UCDF20FF" 
2170 DATA. "51CDFFAU", "HE75", "3Z302A0012", "5340", "206A0008", "226A0004" 
2180 DATA “2A4UB", "548d", "20D1"."321D", "D359", "321D". "D359". "51CB8FFF2" 


2190 DATA "4E75", "6100008E", "263C00010001", "122C0002", "9214" 


Finally, you must tell the computer "64000006", "Alor" 
which lines are joined and in which of 2200 DATA "4403". "4843", "142C0003". "942C0001", "64000006", "4402". "4403". "1001" 


2210 DATA "8002", "6700005C", "2803", "1002", "BOO1", "6500000E", "O2840000FFFF" 


the eight colours they are to be drawn. 2220 DATA "C342", "60000008", "O284FFFFOO00O", "4247", "1E01","5307", "1CO1", "E20E" 


2230 DATA "1006", "D002", "65000008", "BO01", "6500000C", "9001", "1C00", "2A03" 


] ; { { + 2200 DATA "60000006", "1C00", "2A04", "DB2CO001", "W845", "DBI", "48E77COO" 
Thatisigivenmasallisnoflines qithieach) |) eee eee ee eee eee ee eae ent One enen ye ear ieaaee 


All co-ordinates are given as num- 
bers in the range 0 to 255, using the co- 
ordinate system shown in figure one. 
In the eight-colour mode for which the 


routine is designed that will allow you line) being! defintedkby: Start"Point, | 35c¢ nica coxcumneginncnadcen step une) «sateumrsanen teanece memos umaaees 
to specify co-ordinates down to the — End Point, Colour Boog DATAUNIE7 EN osgoboaooRodCOdeNy "e", kacasaemman: aie cahcine: Mmeleis 


nearest pixel. 
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LISTING THREE 


LOC OBJECT 
o000° 


0000" 
0004" 
0008 
000A" 
o00C” 0001 

GOGE GO0E 
0010" 05 

QO11" 5452 4146 
0016" 0000 

d018" 0000 
QO1A® 9600 


3078 0110 
43FA 0006 
4E90 
4€75 


oo1C” 
0020" 
0022" 
0026" 
0028" 
0020 

0030" 
6034" 
0038" 
OOSA- 
DOSE" 
5044" 
O04" 
OO4E' 
0052" 
0056" 
0058" 
005A" 
OSE’ 
0060" 
0064" 
0068" 
o08C" 
OG6E 


3078 0118 
4£90 
6600 004A 
TOF i 

0043 0004 
6600 0040 
2476 9800 
2E36 9804 
53587 

ASFA 0234 
1976 9808 0005 
3976 PB0E 0006 
6100 0024 
226A 0008 
302A 0012 
5340 

4299 

S1C8 FFFC 
2652 

6109 004C 
SICF FFFO 
6100 G09E 
4280 

475 


0070" 
0072' 


248A 
0692 0000 


0078° 
0070" 
9080" 
0082" 
0084" 
6086" 
0088" 
o08C’ 
0090" 
0094" 
0096" 
0098" 
009E* 
OGA2' 
O0AB* 
QOAC* 


302A 0012 
COEA 0010 
£388 
2206 
E388 
D081 
2552 0004 
DIAA 0004 
302A 0012 
4600 
£588 
256A 0004 
DIAA 0008 
256A 0008 
DIAA O00c 
4E75 


QOAE® 
0082' 
0084" 
00B4' 
00B8* 
OGBC’ 
00C0" 
0002' 
00C4’ 
OCA’ 
OOce’ 
0002" 
0OD4" 
OODA’ 
QODE’ 
OGE2° 
O0E* 


382A 0010 
5344 

2A4B 

2640 

6100 002E 
3CZA 016 
5346 

6100 0044 
3620 0006 
3430 OFFF 
SICA FFFE 
SiCB FFF 
6100 0030 
6160 O09E 
SICE FFF 
SICC FFD2 
4E75 


302A 0012 
5340 
2AbA 0004 


STMT 


1 983 
2% 


SOURCE STATEMENT 


3 # This will include the new orocedure TRANS loc,rens,pap,dly 


4k where: loc 
af reps 
6% pap 
rhe dly 
§ + 


= start of picture data 
fuaber of repetitions 
paper colour (for rubbing out lines) 
delay between shapes (50 = 1 sec. approx.) 


9 # First add the procedure 


MOVE. W 
LEAL 
JSR 
RTS 
DC.W 
OC.W 
DC.B 
0C.B 
DC.W 
DC.W 
OC.W 


$110,A0 
PROC, Al 
1A0) 


$110 = BP. INIT = Add proc/func 
Link in orocedure 


i Number of procedures 
TRANS-* Relative location of oroc 
a Length of proc name 
“TRANS * Nae of procedure 
t) End of orocedures 

Number of functions 
0 End of functions 


= 
# This is the TRANS procedure ######4HSEREEEREEETE EES 
+ 


# Get the procedure parameters 


2 
TRANS = MOVE. W 
JSR 
BNE 
MOVE 
CMPILW 
BNE 
MOVE.L 
HOVE.L 
SUBB.L 
LEA.L 
MOVE.B 
MOVE. W 
BSR 
MOVE.L 
MOVE. 
SURO. W 
CLR.L 
DBF 
MAINLOOP MOVE.L 
BSR 
DBF 
BSR 
CLRAL 
EXIT RTS 
Ea 


CLRNEXT 


$118, a0 
(RO) 


$112 = CA.GTLIN (longs) 


EXIT 
4-15, D0 
#4,03 
EXIT 


Exit on error 

DO = Parameter error 
Should be 4 parameters 
Branch if not 


O(Ab,A1.L) ,A2 
4(Ab,AL.L) D7 
41,07 
TABLE, A4 A4 = Plotting Table 
V1(A6,AI.L),5(A4) Get Paper colour 
14(A6,AL.L),6(A4) Get DELAY period 
CALCADDR 
8(A2) Al Al 
18{A2) D0 0 
41,00 
iAl)+ 
DO, CLRNEXT 
(A2),A3 
SEQUENCE 
D7, MAINLOOP 
DRAWSH Draw complete final shape 
00 Signal no errors ’ 
Return to SuperBASIC 


A2 = Start address of data 
D7 = Number of repetitions 


NEXT 

f_points 

DO = n_points - 1 

Clear the NEXT table, 
for n_points 

A3 = Present SHAPE 


# Calculate and store the table addresses 


+ 
CALCADDR NOVE.L 
ADDI.L 


MOVE. W 
MULU 
LSL.L 
MOVE.L 
LSL.L 
ADD.L 
MOVE. 
ADD.L 
MOVE.W 
EXT.L 
LSL.L 
MOVE.L 
ADD.L 
MOVE.L 
70 ADD.L 
Ii RTS 
72# 


A2, (A2) 
#24, (02) 


(A2) 
(A2) 


Start of ‘data’ 
‘data’ + 24 


18(A2) ,DO Do 
16(A2) ,D0 D0 
#1,00 D0 
D0,D1 
41,00 
D1,D6 
(A2),4(A2) 


A_points 
n_points * n_shapes 
6 # DO 


PREV = SHAPES 

DO, 4(A2) PREV = SHAPES + DG 
18(A2) DO DO = n_points 

0 DO - Long 

#2,00 DO = 4 # n_points 
4(A2) ,B(A2) NEXT = PREY 

DO, 8(A2) NEXT = PREV + 0 
B(A2) ,12(A2) LINES = NEXT 

DO, 12(A2) LINES = NEXT + DO 
Return to MAINLOOP 


73 # This is the main drawing ioop. It will follow through 


Tht 
75 * 
7b * 
77 SEQUENCE MOVE.W 
78 SUBQ.W 
9 MOVE.L 
80 NSHAPE MOVE.L 
81 BSR 

82 MOVE. W 
83 SUBQ.W 
84 BSR 

85 MOVE.W 
86 DELAY  MOVE.W 
87 WAIT DBF 

88 DEF 

89 STEPS BSR 

sD) BSR 

n DBF 

92 DBF 

93 RTS 
94% 

95 * Update the PREV 
96 # 

97 UPPTS == MOVE. 
98 SUBG.W 
9 MOVE. L 
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one coeplete sequence before returning to the 
MAINLOOP, which checks the number of repetitions. 


14(A2) ,D4 D4 = n_shapes 
#1,D4 D4 = n_shapes - 1 
AS,AS For first ldop (Next instr) 
AS, AS AZ = Present SHAPES 
UPPTS 
22(A2) Dé Dé = n_steps 
#1,D6 Db = n_steps - 1 
DRAWSH Draw main shape for delay 
6(A4) D3 D3 = User delay 
¥SOFFF,D2 02 = Set delay 
02, WAIT 
D3, DELAY 
DRAWSH 
TRANSH 
Do, STEPS 
D4, NSHAPE 
Return to MAINLOOP 


table for start of next shape 
18(A2) , D0 Do 


41,00 00 
4182) ,A5 AS 


n_points 
n_points - | 
PREY 


LOC 
00F2' 
O0F4’ 
O0F6' 
00F8" 
OOF A’ 
OOFC’ 
QOFE’ 
0100" 
6102" 
0106" 


O108° 
0100" 
0110" 
gna’ 
O18’ 
OLiA’ 
atic’ 
OLE’ 


9120" 


206A 
226A 
2AbA 
JAZA 
5345 
4242 
1418 
ES4A 
4243 
1618 
ES4B 
{BBS 
1975 
1975 
1975 
1960 
48E7 
6100 
4CDF 
1881 
1974 
1971 
1971 
1958 
48E7 
6100 
4CDF 
5icd 
4E75 


6100 
263C 
122 
9214 
6400 
4401 
4403 
4843 
1420 
9420 
6400 
4402 
4403 
1001 
8002 
6700 
2803 
1002 
BOO! 
6500 
0284 
C342 
6000 
0284 
4247 
1E01 
5307 
1001 
E20E 
1006 
D002 


OBJECT 


2000 
2002 
3000 
3002 
0005 
FFOS 
0054 
20FF 
2000 
2002 0001 
3000 0002 
3002 0003 
0004 
FFOS 
o02E 
20FF 
FFAS 


O08E 
9001 
0002 


0006 


GOOE 
0000 FFFF 


0008 
FFFF 0000 


STMT 
100 


101 SETPREV 


102 
103 
104 
105 
106 
107 
108 
109 
110 
vet 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 

2% 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
res 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 


+ 


SOURCE STATEMENT 
HOVE.L AS, Al 
MOVE.W  (A1),D5 
MOVE.W  05,D6 
CLR.B DS 
MOVE.W D5, (A5)+ 
LSL.W 48,06 
MOVE.W D6, (A5)+ 
ADDO.L #6, Al 
DBF DO, SETPREV 
RTS 


Al = SHAPES 

DS = YXXXXXXX YYVYYYYY 
D6 = XXXXXXAY YYVYYYYY 
DS = XXXXXXXX 00000000 


Da = YYYYYYYY 60000000 


Al = Next point 


+ This routine will erase the last shape draw, and draw 
the next shape, one line at a time. 


+ 
# 
DRAWSH 


DOSHAP: 


MOVE.L 
MOVE.L 
MOVE.L 


12(A2) ,A0 
4(A2) ,AL 
B(A2) ,A5 
MOVE.W — 20(A2) ,D5 
SUBG.W 1,05 
— CLRW D2 
NOVE.B  (AO)+,D2 
LSL.W 2,02 
CLRAW 03 
MOVE.B-  (A0)+,D3 
LSL.W 42,03 
HOVE.B  0(A5,D2.W), (A4)- 
HOVE.B  2(A5,D2.W) ,1(A4) 
MOVE.B  0(A5,D3.W),2(A4) 


Ad = LINES 

Al = PREV 

AS = NEXT 

DS = n_lines 

DS = n_iines - i 
02 =0 

02 = No. point one 
02 = 4 # 02 

D3 =0 

D3 = No. point two 
D3 = 4% D3 

Get NEXT. X1 

Get NEXT. ¥1 

Get NEXT.X2 


MOVE.B © 2(A5,D3.W),3(A4) 
MOVE.B = S1A4) ,4(A4) 
MOVEM.L © DO-D7/A5,-(A7) 
BSR DRAW 


Bet NEXT.¥2 
Colour = Paper 


Rubout old line 


<3 


MOVEM.L = (A7)+,D0-D7/A5 
MOVE.B O(A1,D2.W), (A4) 
MOVE.B -2(A1,D2.W) , £(A4) 
MOVE.B  G(AL,D3.W),2(A4) 
MOVE.B = 2(A1,D3.W),3(A4) 
MOVE.B (AO) +,4(A4) 
MOVEM.L = DO-D7/A5,-(A7) 
BSR DRAW 

MOVEN.L = (A7)+,DO-D7/AS 
DEF DS, DOSHAPE 

RTS 


Get PREV.Xi 
Get PREV.Y1 
Get PREV.12 
Get PREV.Y2 
Get line colour 


Draw new line 


# Copy the lines from PREV to NEXT, then add the step 
increments for the subsequent drawing. 


* 
t 
TRANSH 


UPDATE 


160 # 


161 

162 
163 
164 
145 
166 
167 
168 
169 
170 
71 
172 
173 
4174 
175 
176 
177 
178 
179 
186 
181 
182 
183 
184 
185 
184 
187 
186 
189 
196 
191 

192 
193 
194 
195 
196 
197 
198 
199 


Draws the line (X1,¥1 


DRAW 


X2TOX1 


y2Tov 


MOVE.W 
SUB. W 
MOVE.L 
MOVE.L 
MOVE. L 
ADDO.L 
MOVE.L 
MOVE. W 
ADD.W 


18(A2) .DO 
41,00 
8(A2) ,A 
4(A2) AL 
A3,A5 
#2, 05 
(AL), (AQ)+ 
(85+, 
Di, (Al)+ 
MOVE.W (AB) +,Di 
ADD.W = D1, (ALD+ 
DBF D0, UPDATE 
RIS 


where: 


) 
O(A$) = X13 
2(Ag) = 


4(Aa) = Colour 


to (42,12) 


DO = n_points 

DO = n_points - ! 
AQ = NEXT 

Al = PREV 

AS = SHAPES 

AS = SHAPES (dX) 
NEXT point = PREV point 
Di = dX increment 
Add dX increment 
Di = d¥ increment 
Add dY increment 


in Colour. 


1(A4) = YI 
X23 S(A4) = ¥2 


the range @ to 255. This will specify individual 


# 

$ 

+ 

* 

4 Coordinates are from (0,0) = Top-Left, and are in 
+ 

* pixels in the 8-colour mode. 

+ 


BSR PLOT 

MOVE.  #800010001,D3 
HOVE. 2(A4) DI 
SUB.B (Ad), DI 

BCC X2TOX1 

NEG.B DA 

NEG.B 03 

SWAP DS 

HOVE.R  3(A4L,D2 
SUE.B © -1(A4) ,D2 

BCC y2T0v! 

NEG.B 
NEB.B 
HOVE. B 
OR.B 
REQ. 
HOVE.L 
MOVE.B D2, D0 

CMP.B 1,00 

BCS XBIs 

ANDI.L  #80000FFFF D4 
EXB 01,02 

BRA YBIG 

ANDI.L  #SFFFFOO00, D4 
ciR.W D7 

NOVE.B 1,07 

SUBQ.B  #1,07 

MOVE.B D1,D6 

iSR.B 41,06 

MOVE.B Db, DO 

ADD.B 2,00 


ENDDRAW 
03,04 


first point 
Diagonal increments 
X2 
X2 - Xt 

Branch if X23=% 

Di = Xi - 12 

DX) = -1 

Get D3{¥) in low word 

02 = Y2 

02 = 92 - ¥1 

Branch if ¥2> 

D2 = Yi - ¥2 

D3ty) = -1 

Check for point oiot, 

and return if both 
are zero 

D4 = Yer/Hor increrents 

02 = d¥ 

Compare dY-dX 

Branch if dX > d¥ 

D4 = OY 

Swap dX and d¥ 


D4 = x0 
Number of steps in olot 
Do = Diff/2 for best line 


Largest diff/2 
DO + smallest diff 
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OBJECT 


6500 0008 
BOO1 
6500 000C 
9001 
1C00 

" 2A03 
6000 0006 
1000 
2A04 
DE2C 0001 
4845 
DBI4 
4BE7 700 
6100 OO0E 
4CDF O03E 
SiCF FFCE 
4280 
4E75 


2A7C 0002 
"pats 
" EFaD 
* DACS 
ED4R 
3803 
EFAC 
“0244 8000 
0243 0000 
"8644 
C23C 0003 
E309 
“3430 7FSF 
" E27A 
‘£278 
* (555 
8755 
“ 4E75 


* 20008 


STMT SOURCE STATEMENT 


200 BCS 
201 CHP.B 
202 BCS 
203 DIAGONAL SUB.B 
MOVE. B 
NOVEL 
BRA 
HORIVERT MOVE. B 


STEP 


ENDDRAW 


S| 


DIABONAL 
01,00 
HORIVERT 
D1,D0 

D0,Db 

03,05 

STEP 

00,06 

04,05 

15, 1(A4) 

05 

05, (A4) 
D1-D5,-(A7) 
PLOT 
(A7)+,D1-D5 
D7,NEXT 

Do 


Branch to diagonal step 
Branch if largest diff is 
greater to hori/vert step 
Subtract largest difference 
and store new result 
Retrieve diagonal increments 


Store new result 

Retrieve hor/vert increments 
Add d¥ to Yi 

Get D5(X) 

Add dX to Xi 

Stack reqisters 

Plot next ooint 

Restore registers 

Reduce count, and loop 

No errors 


# PLOT will plot a point in 8 colour mode. The point 
# is specified by (A4.B)=%, 1(A$.B)=¥ & 4(A4.B)=Colour, 


# 
MOVE.B 


No errors found in this Assembly 


(A4) ,D1 
Di,D4 
1(A4) D2 


41,04 
4S007E, D4 
#520000, A5 
D4,A5 
47,05 
D5,A5 
46,03 
03,04 
47,04 
#58000, D4 
#500C0,D3 
D4,D3 
6,01 
41,01 
#S7F3F ,D2 
01,02 
D1,D3 

02, (AS 

03, (AS) 


D1 = x-coordinate 
Copy to D4 
D2 = y-coordinate 
Copy to DS 
03 = Colour 
D4 = D4/2 for Bytes 
0 to 126 (even) 
Start of screen 
AS + x-coord 
128 # y 
AS + y-coord 
R GB000000 


RGBO000 00000000 
= R0000000 00000000 
= 90000000 68000000 
= R0000000 GBO00000 
= 0 to3 
= 0 to 6 (even) 

= OUILL111 OO111111 
Rotate mask 
Rotate colour 
Mask screen 
OR colour to screen 
Return 


Listing Four. Alternatively, type the 
three lines shown above, then enter 
Listing Four. When typing the listing, 
you will notice that TRANS is shown in 
upper case, even if you type it in lower 
case. That indicates that the TRANS 
resident procedure is in memory. Run- 
ning the program will show the ‘QL’ to 
‘impossible-triangle’ sequence. Note 
that line 110 loads the data file created 
by listing one, so you will have to 
change that line ifyou have called your 
file something different. 

When using TRANS you have to 
specify four parameters. If you do not 
do that you will receive a ‘bad parame- 
ter’ message. The form of the TRANS 
command is: 


TRANS loc,reps,bcol,delay 


loc: is the start location of the data to 
be used for the transformation. That 


Unusual effects can be achieved by 
specifying different colour. Try run- 
ning the program again with TRANS 
b,1,7,150. That will leave a trail of white 
lines. 

delay: tells the routine how long to 
stop between each shape in the se- 
quence. Fifty gives a delay of approxi- 
mately one second. 

You will no doubt be able to think of 
plenty of ways to use the routine, butas 
a further example, the data given in 
Listing Five — which should replace 
the data given in Listing One — will - 
show a simple exploding missile ani- 
mation sequence. 


Technical Notes: 

The assembly code shown in listing 
three is fully-anotated, so should be 
reasonably easy to follow. If you wish 


to make the routine work in four-col- 
our mode, just change the PLOT 
routine at the end of the listing. When 
doing that, remember that horizontal 
co-ordinates will still be specified in 
the range 0 to 255. Changing that 
would require much more severe alt- 
erations. 

The DRAW routine is a fast line- 
drawing utility which you may find 
useful for other applications. For 
speed, DRAW ignores screen-windows 
and that should be considered when 
using TRANS in your programs, 


LISTING FOUR 

100 b=RESPR(1000) 

110 LBYTES mdvi_qltri_data,b 

140 PAPER#2,0:CLS#2: CLS#0 

145 REPeat loop 

150 TRANS b.1,0,150 

160 CLS#2 

LTO aS=INKEY$(0):IF ag$="" THEN GO TO 170 
180 END REPeat loop 


means you could easily have the data 
for a number of transformations in 
memory at the same time and specify 
with which data you wish the routine 
to work when you call it. 

reps: gives the number of repeti- 
tions of the complete sequence exe- 
cuted before returning to Basic. 

beol: is the background colour used 
when erasing previously-drawn lines 
in the sequence. In the foregoing 
example, we cleared the screen to 
black (zero), then used black lines. 


. LISTING FIVE 


700 REMark SHAPES. POINTS, LINES, STEPS 

710) 3 

720 DATA 5,18,15,40 

730 : 

740 REMark SHAPE DATA 

750 : 

760 DATA 255,0,255.0,255,0,255,0, 255, 0, 255.0, 255.0, 255,0, 255.0 

770 DATA 255,0,255,0,255,0,255,0, 255,0,255,0,255,0,255,0,255,0 

780 : 

790 DATA 0.220,4,208, 27,188, 29,179, 38,185, 38, 203, 32, 200,9, 223.9, 214 

800 DATA 32,192,38,185,27,188, 32,192, 32, 200,4,208,9,214,9,223,0.220 

810 : 

820 DATA 0.220.0.220,0,220,0,220,0,220.0,220,0,220,0,220.0,220 

830 DATA 0,220,0,220,0,220,0,220,0,220,0,220,0,220,0,220,0,220 

84oO : 

850 DATA 0,160,10,150,17,160, 26,153, 33,163, 31,275,41,175,44,190,51,212 

860 DATA 46,224,54,2b0,10,182, 21,177, 22,186, 23, 215, 28, 217,25, 
228,52,192 

870 : 

880 DATA 0,220,0,220,0,220,0, 220, 0,220, 0,220,0,220,0,220,0.220 

890 DATA 0,220,0,220,0,220,0,220,0,220,0, 220, 0, 220,0, 220,060,220 

900 : 

910 REMark LINE DATA 

920: 

930 DATA 0.1.3.1.2,3.2.3.3.3+4,3.4,5.3,5+6.3+6.7.3+7-17.3 

940 DATA 17,.8,3,8.9.3,9.10,3,14,15,1,15,16,1,11.12,1,12,13,1 


BS 55 
(255,253) 


(88,2535) 


Figure One. Screen co-ordinates range from 0 to 255. 
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DS Enterprises 
(01) 671 0209 


Disks 
5.25” DS DD DS QD 
Unbranded (Recommended) £12.50 .......:cscsccscssesssssssesessesesees £17.00 
Maxell teen se ecicrscasetveccs SIG OO per orate See £20.00 
3. DS DD 
FURR, Sec ncc ates sees ws ck eed . £32.50 
Maxell £35.00 


All disks are guaranteed and come packed in plastic flip & file type boxes. 


Drives 
QL, Spectrum or BBC Compatable. 
Single 80 Track Dual 80 Track 
See nas £100.00 «2... 
5.25)" .. a1 10000) 22. 


QL Software 


Pascal (Full ISO) ... 
Super Charger (Basic Compiler) 
Ram Disc (Ram Disk & Utilities 
Tasprint ... 
QDraw 
Eo ll (Eprom version) 
Ce een cle a ee ee 
Sign Designer (Designs Screens & Signs) .... 


Add On’s 


512k Memory Expander (Sandy) 
(Including Ram Disc Software) .. 
C.S.T. Disc Interface 
Dual 3.5” Drive + Interface .. 
Zero 2 (Turtle QL & Spectrum) 
Centronics GLP (NLQ Printer) 


Special discounts on complete packages or large orders, call for 
details of all QL or Spectrum needs on 01-671 0209. (All prices are 
inc P&P and VAT). Make All Cheques Payable To: David Storton, 
25 Trinity Rise, London SW2 2QP. 


... £125.00 
. £130.50 


Micr—_A_Soft 
QLuality software 


C-A-D & 3D GRAPHICS ON THE QL with “DESIGN BOARD 2” 

Suitable applications: Architects * Technical_Drawing * Maps * Science * 
Art_Design * Students * D-I-Y_Enthusiasts. Includes * C-A:D design of Single 
& 3-D graphics + mirroring N-S-E-W * Line_banding * On screen X,Y co_ords 
with optional linking grids * 4 texts mixable with graphic * 3 brush paintbox * 
Extras to C-A:D & QL graphics, Single or 3D BOX-OCTAGON TRIANGLE-HEXA- 
GON-PENTAGON rotatable 360’ * Image_designer * Graphics angle indi- 
cator * Advanced screen dump-(EPSON compact) 

With 3D & C-A:D graphics + it’s many features Design Board 2 has to be consi- 
dered as the TOP QL design package. £24.95 

ART MASTER: Includes * Line_banding * Freehand sketching * 3 brush 
sizes * Full colour range * Colour sampler * Graphics angle indicator *Im- 
age_designer * Perspective grids * Advanced screen dump(EPSON comp-) 
This program contains many features of packages costing three times it’s price. 
£12.95 

FRUIT MACHINE: All the arcade sound & action of the very popular arcade 
bandits, with HOLDS —- NUDGES — JACKPOTS. Now all the office and family 
can pit their wits & gambling skills against this highly addictive game of chance. 
£6.95 

GRAPHICS TUTOR: A must for all newcomers to & programmers of the QL. 
Lets even a novice design dynamic 3D graphic & text screens with automatic 
printed program listings. Simplifies use of Turtle graphics. Polygons. Cursor. 
Mixing text & graphics Point_locating. Shadow_writing + lots more. Single key 
input of QL graphic commands + Single or 3D autodraw of TRIANGLE HEXA- 
GON-BOX-PENTAGON-:OCTAGON. 

As used by Micr_A_Softs in house program designers. A must for any software 
library. £14.95 

CASINO ROULETTE: On screen game board simulates all the action & excite- 
ment of a casino. Roulette is a game of skill allied to chance with a fascination 
of it’s own, with players seeking the ultimate winning system. This game is fast 
becoming the cult game in offices and homes whether played for high stakes or 
just for fun. £12.95 


FREE SOFTWARE OFFER 


Fruit Machine with every order over £20. 
For further program details Send to or Phone 0204 29643. 


Micr_A_Soft 134 Hardy Mill Road, 


Harwood, Bolton BL2 3PJ 
Cheques or postal orders payable to Micr_A_Soft + 50p p/p UK. 


MON 


Single Line Assembler 
Disassembler 

Patch 

Trace 

Pull Down Windows 


EPI 


Menu/Command Input 
Multiple ROM Sets 
Memory Editor 
Variable Vec 

16k to 512k EPROMs 


QMON II is a low level monitor/debugger designed specifically 
for the QL and its operating system QDOS. It is ideally suited 
to the task of checking and debugging assembly language 
Programs, and extensions to the SuperBASIC interpreter. Even 
if you already have a monitor/debugger for your QL, QMON II 
will provide extra assembly language programming power. 
QMON can also be used to monitor programs written in high 
level languages. 

QMON is designed to integrate into the QDOS environment. 
This makes it possible to monitor just one job in the QL, or all 
the jobs that are executing. While tracing a job, QMON will 
normaliy skip the entries into QDOS, but it can trace right 
through QDOS. QMON does not interfere with QDOS so it is 
entirely feasible to examine one job in the QL, while other jobs 
continue unimpeded. 


QMON has an extensive range of facilities including a window 
based memory editor, single and multi stepping, tracing and 
back-tracing with fixed and conditional breakpoints, as well as 
@ macro command facility for tracing and patching, together 
with an unusually powerful set of commands for examining and 
altering machine code and data. 


Despite its wide range of facilities QMON is very compact. The 
full version, including a complete MC68008 single line 
assembler, editor and disassembler, occupies only 1Ik bytes, 
while a reduced version is included which takes 5k bytes. 


The QEP III EPROM programmer was designed specifically to 
meet the need for a highly reliable means of programming MOS 
EPROMS. It is cased, with resident firmware in ROM and fits in 
the QL expansion slot or an expansion unit. 


QEP III provides verification of EPROMS at 4V 4.3V 4.7V 5V 
5-3V 5.7V and 6V¥: under and over voltage verification is 
essential for reliable EPROM service. It also features standard 
and interactive programming algorithms as well as its own 
accelerated algorithm at programming voltages of 12.7V, 21V 
and 25V. 


QEP III can program 16k to 512k EPROMs (even 25xx devices) 
with standard pinouts, or the data and address pins may be 
re-assigned for ease of PCB layout. It can program EPROMs 
for multiple EPROM sets without any need to reload the 
program data or program just part of an EPROM. 


Although QEP III is fully menu driven, the keystrokes to select 
items from the menus form simple commands. Options set up 
from the menus may be saved ina file for future use. 
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Upgrade 


QMON 5. 
QMON 3. 
QEPIII 


SAE. 


PRINT_USING 


Network etc., last line recall, programmable keys, 
File S Super BASIC program editor default 

le EEVer, directories, alarm clock etc., etCe, etcs, 
Wild Cards Essential for all serious QL program 
Key Define developers, educational establishments. 


More Performance 
Standard Format 
Extra Facilities 


QMON Microdrive 


QTKII ROM cartridge 
QFLP (MP) bare EPROM £14.95 
All prices include VAT at 15%. 


For more information on these and 
other QJUMP products, please send an 


24 King Street 
If your QL dealer does not have the RAMPTON 
products you require, you may order 
direct, using ACCESS/Mastercard or CAMBS 
cheque with order. CB4 4QD 


QTK II, the QL Supertoolkit 2, is arewritten 
version of the original QL Toolkit. It now 
has over 100 facilities for program 
development, command language, Super BASIC 
programming, extensions to the console, 
Microdrive and networking facilities. 


QTK II includes full networking for file 
serving, messaging etc., formatted output 
(PRINT_USING), wild card copying, deletion 


TKO 


The QFLP upgrade ROM for the Micro 
Periphals / Sinclair QL _ floppy disk 
interface is intended for distributers or 
dealers holding large stocks of these 
interfaces. However, if you have bought one 
of these interfaces, we are able to supply 
this upgrade (unpackaged) to improve the 
performance of your interface to the same 
level as other QL disk interfaces, as well 
making your interface meet Sinclair's own 
standard disk format. 


A comprehensive test report is available on 
request: please send SAE. 


FLP 


£19.95 + £1 pp 
£19.95 + £1 pp 
£21.95 + £1 pp 
£115.00 + £2 pp 
£34.50 + £2 pp 


25" disk 
5" disk 


QJUMP Ltd. 
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Psion 122 ingen 


IF you ever envy the IBM’s ability to go 
quickly from word processing to a 
spreadsheet with programs like Lotus 123 
it can be done with a QL (JM ROM) and 
issue 2 of the Psion Software. 


Format a cartridge 

Copy Quill from master 
Copy Print_Dat from master 
Copy Abacus from master 


Save the boot program which allows it to 
operate like Lotus 123. Obviously we do 
not use install_bas or convert_bas or the 
help files but everything works, even 
printing, and the system resets when 
finished. The last few lines which allow the 
resetare from Leon Heller. 1am sure it will 
also work with Archive and Easel but as I 
do not use these programs much I have not 
tried it. This completely fills the cartridge 
so don’t expect to add anything to it. 


1@e CLEAR 

1i@ WINDOW S1i2,256,0,@0:CSIZE 2,1:CLS 
120 AT Z-11:PRINT "QL QUILL PRESS Fi" 
13@ AT &,11:PRINT "QL ABACUS PRESS F2" 
140 A$S= INKEY$ (1900) 

15@ IF CODE(A$) =232 THEN 50 TO 190 
14@ IF CODE(A$)=236 THEN GO TO 2a0 


17@ CLOSE #1:CLOSE #2:WINDOW #@.400,20,35,2:5 


138 GO TO 140 

19 EXEC_W mdvi_quill:G0 To 220 
22@ EXEC_W MDV1_ABACUS:G0 To 220 
210 OPEN #1>scriOPEN #2,scr 

220 reset =RESPR(12) 

239 FOR i=@ TO 11 


Z25@ POKE resetti-v 
@ END FOR i 


CALL reset 


3@@ DATA 72,64: 78,252-39,0,32,120,0, 4,728,208 


Whatever happened to the Sinclair 
wafer chip? and also Psion Exchange on 
ROM cartridge for the QL. Could one put 
one’s own Psion software on the EPROMs 
being advertised by Camel Products or 
Micro Enterprises at the back of this 
magazine? 

Martin McHugo, 
Co. Kildare, Ireland. 


CONGRATULATIONS on your rescue of 
the entire QL publishing scene. I received 
my copy of your magazine today and am 
writing to say how much I enjoyed reading 
it. 

1am also writing to introduce QNET-2. 
We are a group of three individual QL 
owners who run three pages on Micronet 
800’s Gallery section. These are to be 
found on pages *323000112, *32300037 
and *323000223. Regular topics include 
news, reviews of hardware and software, 
hints and tips, technical helpline and 
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competitions. It was set up in November 
last year after Micronet 800 suspended 
their QNET microbase on *80040, 

We currently have almost 100 members 
and membership is growing at a rate of 
four or five a week. All three pages are now 
in the top twenty most accessed Gallery 
pages on Prestel. My page is currently at 
number three — not bad for a machine 
that is not supposed to have much support 
on Prestel! 

Nigel Barker, 
Weston-super-Mare, Avon. 


Continental QL 


1 READ with some interest the letter from 
your correspondent, M G. W. Feler of Paris, 
in your January 1986 number. I have had 
the same experience with low mains 
voltage here. All my equipment was 
purchased in England, with the exception 
ofa Silver Reed EXP 500 printer, because 
of the ludicrous prices charged in this 
country for computers and ancillaries. 

Tuse a QL expanded to 640K, with a 
CS.T, dual 3.5in. floppy system. To get 
correct operation, I have boosted the line 
voltage (nominally 220, more usually 215), 
to 240, with an auto_transformer, though 
evidently a voltage regulating transformer 
would be preferable. This has stopped 
problems with corruption of data, etc. 

The addition of the disc drives and the 
extra memory transforms the computer 
and turns it into a serious professional 
machine which it is not with 128K and the 
microdrives. I must say that mine has 
always worked impeccably and I consider 
ita vast advance over the warmed over 
Z-80 type stuff which seems, nevertheless 
to be so popular. 

I believe Sinclair is bringing out a new 
machine. What is needed is 640K as 
standard, suppression of the Microdrives, 
except perhaps as a cheap separate add on 
instead of discs, and access to MS DOS as 
Apple has done with the Macintosh. 
Sinclair should also improve its marketing, 
Amstrad sells its machines here under the 
name “Schneider”, which sounds serious. 
Perhaps Sir Clive should call his machines 
for export “Stindeklar”, 


F. Gutteridge, 
Geneva, Switzerland. 


On The Air 


J, COOPER wrote in the January issue of QL 
User about the possibility of transmitting 


QL programs over the airwaves. All it 
needs to do this is a circuit to convert the 
QL's serial port output to an audible tone 
at a frequency dependent on the level at 
the port. The tone can then be transmitted, 
received, and finally fed back into the 
other QL’s serial port. 

Such a circuit is in fact commonly 
referred to as a modem, and for the home 
constructor several designs have been 
published, for example: 

Acoustic Modem by Jonathan Burchell, 
Radio & Electronics World, February 1983, 
pages 10 to 13, Acoustically Coupled 
Telephone Modem by Kenneth Amor, 
Practical Electronics, February 1980, 
pages 39 to 44, 

Both of these modems are intended for 
acoustic coupling to the telephone line via 
a loudspeaker and microphone. To adapt 
them for radio it should only be necessary 
to substitute the transmitter input for the 
loudspeaker and the receiver's output for 
the microphone. The above designs are for 
300 baud operation, so the QL’s serial port 
would need to be set up for this. Programs 
could be transmitted by a command such 
as SAVE serl with the receiving QL set for 
LOAD ser. 

Finally I would like to endorse G. 
Slatter’s comments on the Centronics GLP 
printer—it really isa “Great Little Printer” 
and excellent value for money. 

R. Wilson, 
Cirencester, Gloucs. 


Expanded Accounts 


YOUR correspondent Mr. A. Viney who is 
having trouble with running Sagesoft 
Integrated Accounts on his QL appears to 
have been misinformed by Sagesoft. 

I purchased Sagesoft Integrated 
Accounts in October 1985 which ran very 
satisfactorily on my unexpanded JS ROM 
machine. I have subsequently converted it 
to run ona single drive disc system — an 
Opus single drive via a Technology 
Research unexpanded interface. 

However, because I also needed to run 
the program at home | purchased another 
QL, this time with a JM ROM. Result — 
nothing! Sinclair Research kindly updated 
the ROM without charge to a JS and again 
everything is in order. My only criticism is 
the 15 to 20 minutes required to make 
back-up copies on microdrive. 

I therefore suggest Mr. Viney’s problem 
is not in the expansion or disc drive but 


with the ROM version — possibly JM? A 
colleague has also confirmed that his AH 
machine runs Sagesoft’s Integrated 
Accounts. 
Thope that this is of assistance to Mr. 
Viney and your other readers. 
G. H. Bent, 
Corby, Northants, 


Editor's reply: The most recent version of 
QL Integrated Accounts — V1.21 — 
incorporates a start-up routine which 
enables it to be used with most of the 
floppy disc systems available for the QL. 
We spoke to Sagesoft, who were unable to 
confirm that Integrated Accounts would 
run on version JM ROM machines. If any 
other readers have had problems with the 
Integrated Accounts package, please write 
and inform us, 


Fast Drives 


CONGRATULATIONS ona magazine that is 
improving tremendously every issue. 

Michael Rouse’s letter in the January 
edition finally solved a problem I have had 
with Quill since day one, in that I had to 
keep switching my Epson FX80 printer off 
and on to get the last line out ofthe buffer. 

I find one drawback with QUILL and 
‘what you see is what you get’ is where 
draft copies are required, before final 
print-out in bold or elite/double-strike. It 
is awfully slow to go back over a long 
document using F4 Paint. 

My solution is to set up a printer driver, 
accessed through LRUN MDV1_INSTALL_ 
BAS, which gives me the best mix of 
embedded and non-print codes along the 
top line of keys. This easily allows an 
explanatory strip to be putacross the top of 
the QL as a reminder. 

Best wishes to you all for the future, but 
how about the following resolutions? 

1. Try to avoid ‘games programs’. Most 
USERS bought their QLs for serious 
applications and non-machine code 
programs are a waste of time anyway, 

2. Much more usefully, publish 
applications for the bundled software 
programs rather than concentrating on 
SuperBasic. These would also adapt to the 
ICL OPD/Merlin Tonto and you should 
widen your readership base quite 
considerably. 

3, Finally, do keep the Microdrive 
exchange up-to-date, I am desperate to get 
my hands on the File Recovery Program in 
January but despite promises in the text 
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there is no mention of cost in the relevant 
section. 

A. Taylor, 

Bristol. 


Editor's reply: QL owners have a diverse 
range of interests from games through to 
programming and serious business 
applications. We try to mirror this diversity 
in Sinclair QL World by including articles 
of interest to everyone. Hence, as well as 
the odd games feature you will continue to 
find numerous articles aimed at the 
business user, such as last month’s 
software applications feature on the Psion 
packages. 

The Microdrive Exchange has, 
regrettably, suffered a few bottlenecks as a 
result of our change of offices. Hopefully, 
by the time you read this things will be 
back to normal. 


I MUST ADMIT Lam surprised that the QL 
has not reached a larger market than it has 
to date. I tend to believe that it is thought to 
be too sophisticated by the home 
computer buff and not sophisticated 
enough for business. The gap between the 
two spheres of operation is too wide for 
any one machine. It’s potential must lie 
more in the business mode, and after using 
one now for some 18 months I think the 
following improvements for a Mk 2 version 
might prove very popular: 

1.No doubt at all about getting rid ofthe 
Microdrives, — I could be very rude here, 
butts not fitting fora magazine —and fita 
1 meg. 3.5in. disc in the right hand side, 
with an external socket for a second drive. 
Add required commands to SuperBasic. 

2. Permanently fit 512K of external RAM 
as standard — external for the best speed. 

3. Put the Psion suit into ROM with the 
facility to multi-task, so that for instance, I 
can check for details in Archive if 1 am half 
way through writing a letter with Quill, 
without losing my place, or having to save 
the letter for future attention. 

4, Internal parallel printer interface. 

5. 85 column ability colour monitor. 

6. Power supply built into the monitor. 

7. Mains spike suppression built in. 

At the moment I have 640K memory, 
twin 1 meg. drives, Sanyo monitor and CP 
80 printer. My only grumble is that no-one 
seems able to produce a reliable Q+2 
interface, they all seem to cause 
intermittent ‘lock up’. Other than that the 
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system is excellent and worth far more 
praise than the press seem willing to give it. 
Tim Fuller, 
Southampton, Hants. 


Printing On The Cheap 


HAVING recently bought a cheap printer I 
was quite pleased with how easy it 
eventually was to connect it to the QL 
running QUILL, even though the CGP-115, 
graphics/text printer was supplied without 
manual or connection details. 

The printer performs quite well in 
normal (large) print mode, the characters 
are not by any means perfect, but are very 
legible. (Don't try using the small print 
option unless you own a magnifying glass!) 
Other features must be available, but I 
have not found them yet! Perhaps another 
CGP-115 user could pass this information 
on to me? Printing times leave a lot to be 
desired, but at a cost £59, who can 
complain? 

T connected it to SER2 using an RS232 
lead which was purchased by mail order 
for £7.50, After tracing it through with a 
meter (no information with this either), | 
eventually figured out which pins 
correspond to which signals: 


25-way male D-type 
PIN SIGNAL 

TX (from QL) 

RX (to QL) 

CTS 

+120 

GND 

20 DIR 


NID Nn & bo 


The following printer information was 
deduced alfter another few minutes: 


4-way DIN 
PIN SIGNAL 
1 NC 
2GTS 
3 GND 
4 1X (fromQL) 


The printer receives serial information 
at 600 baud, with even parity. The CTS 
signal is required by the QL since the 
printer carriage return time is quite large, 
about three seconds, which is enough time 
to loose several characters. 

Apart from the graphics functions which 
Thaven't found yet, I wonder if it will 
change pen colour while printing? 

P. Johnson, 
Stoke-on-Trent, Staffs. 


Editor's reply: If any readers with a CGP 
printer can provide more information we 
would be glad to hear from you. 


More Printer Problems 


HAVING successfully interfaced a Sinclair 
Spectrum with a Tandy DMP-105 matrix 
dot printer, I was dismayed to find 
problems in using the same printer with 
my new QL. 

When listing a program to the printer; 
the first line prints correctly, but 
subsequent lines have the first digit of the 
line number missing, The listing ends with 
an “X”, which the DMP-105 prints when it 
receives a code outside the character set 
and is not a control code. When used with 
any of the Psion programs the same 
problem occurs, unless the margin is inset, 
in which case occasional lines are inset an 
additional character position. 

The QL would appear to be sending an 
extraneous code after sending CR (Code 
13), which causes the printer to ignore the 
next character code. But why? 

The DMP-105 has both serial and 
parallel connections and I have been using 
SERI with the same pin assignment as used 
with the Spectrum Interface 1, as follows: 


QL = DMP-105 (4 pin DIN jack plug) 


RxD to (4)DATA 
DIR to (2) BUSY 
GND to (3)GND(0V) 


The instructions I have used are: 


OPEN #3, serc Default to SER1 with 
non-parity and 
handshake 

Change ASCII code 
10 to code 13 
Printer defaults to 
CR=CR+LF 

Printer can be set 

to either 600 or 
2400 baud 


BAUD 2400 


LIST #3 
CLOSE #3 


Could the problem be solved by using a 
parallel interface, or must I accept the 


100 DIM #8(3,4),a%(3) 1 OPEN_NEW 


possibility that the QL and DMP-105 are 
incompatible? 

There appears to be no way to make 
multiple copies and printing one copy is 
fairly tortuous! 


Press F3 forcommand mode 
Press P forprinting option 
PressENTER  toaccept default 
option-current 
document 
PressENTER to.accept default 
option-whole 
document 
PressENTER  toaccept default 
option-to printer 


Then several seconds further delay, 
while printer data is found and loaded. 

I often have the need to print 20 to 30 
copies of reports, and I have been using 
Tasword Two to do this. Although Tasword 
was not designed with automatic paging 
for continuous paper, or with multi- 
copying facilities, it was a simple matter to 
introduce these facilities in the basic 
control section. Is there a way of 
introducing multi-copying into Quill? 

Derek Coverdale, 
Ipswich, Suffolk. 


Programmers Take Note 


IFIND typing in other people's programs a 
very tedious process, it is made doubly 
worse if there are many DATA statements. 
Worst of all perhaps are those where the 
data can be generated by many fewer lines 
of program —with far less risk of error. QL 
User for January has a good example on 
pages 27-29, and as if to prove my point 
there is an error in the DATA statements! 

The following short program will 
generate lines 470-532, which can later be 
merged with the main body of the 
program; lines 527-579 can be treated 
similarly. 

May I press you to ask your contributors 
to consider this point; to ignore it is, in my 
view, poor programming and an insult to 
your readers, 

Mr. J. B. Russell, 
Rainham, Kent. 


4, adv2_dat_gen 


110 aZ%(0)@0 1 a%(1)"0 2 aX(2)=0 & aX(Sde1 


120 FOR i 
130 i%er 
140 FOR j = 0 TO 3 


= 470 TO S23 


150 a8(jmax(y) 1 a8 {FILLS ("0 ,4-LEN(a8(j)) eas ( 5) 


160 END FOR Jj 


170 PRINT 4,12%)" DATA “SCHRES (34) has (0) kas (1) Gas (2) kas (3) ECHRE (34) 


180 IF i = S23 THEN EXIT i 


190 FOR § = 0 TO 3 1 aX(j)=2ea%( 4) 


200 FOR j = 3 TO © STEP -1 


210 IF aX(j)>9999 THEN a%($)=a%(4)-10000 1: a%(j-1)aX%(j-1)41 


220 END FOR j 
230 END FOR i 
240 CLOSE 4 
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®BASIC ALTERNATIVES: APL 


In the first of our 
regular series on 
alternative languages 
to SuperBasic 
Charles Gerrard 
reviews QL APL. 


SOOS 
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QL/APL 
Keyword Version 


Professional Programming Language 
for the Sinclair QL 


[se et ley ade OL 
LIMIT ICIRIO} 
| JAIPI LY | 
Palas inside Calas 


uperBasic on the QL is a generally useful 
Se well structured, with a wide variety 

of commands. Now, with the addition of a 
compiler, even the slow speed of SuperBasic can be 
avoided. SuperBasic, though one of the best BASIC 
implementations available for a home micro, is often 
just not good enough. Many people find themselves 
looking to other sources for their specific needs. They 
will normally be the more common languages, such as 
Pascal, C and Fortran. There is, however, a wide range 
of more exotic languages now available for the QL. In 
the next few months, we will be introducing those 
languages in a series of articles. 

The first will be introducing the much-maligned 
language Lisp, with special reference to the excellent 
Metacomco Lisp package. To introduce the series we 
look at an even more unusual language. 

Though getting alittle long in the tooth, having been 
around since the 1960s, APL — A Programming 
Language — has a small but loyal following. 

Generally found on only large systems, the APL 
package for the QL is probably one of the cheapest 
implementations available. 

Designed as a mathematical language, APL is very 
different from the more traditional languages found on 
many home micros, such as Pascal and BASIC. With 
the ability to handle complex data structure operations 
with single instructions, APL is often very confusing to 
the beginner but has great advantages once it has 
been mastered. In addition, until now APL has used a 
symbolic notation containing a wide variety of unusual 
Greek symbols, which have tended to intimidate new 


users. The QL/APL version has expanded all those 
symbols into a set of Keywords, making the language, 
at least in appearance, much more like BASIC. 

On power-up, with the cartridge in place, “QL/APL 
Keyword Version 1.03” is displayed. Having booted the 
APL cartridge, you are informed that 28K of workspace 
is available. Not a great deal, even if a portion of the 
interpreter is on ROM, so serious use will probably 
require QL memory expansion. You are now in the APL 
environment. Rather than defining independent input 
and output windows, as are normally found, all input is 
shown in red and output in green, though those colours 
can easily be changed if you have a monochrome TV or 
monitor. 

The interaction with Qdos will also allow you to 
define different windows easily for calculator 
input/output and program input/output or any other 
processes you may be running. Though the system 
allows for only five user channels, such channels as the 
printers — ser1 and ser2 — are defined previously, 
through the system function #HC (Hard Copy), so 
there should be no difficulty with that. 

APL is a highly-structured language, making good 
use of function libraries and multi-dimensional data 
structures. For instance, to add a number to a list of 
numbers, you would type: 6+ 7 3 5 7 9 which would 
produce the list: 7 9 17 13 15 by adding six to all the 
elements. Any of the data structures can be given an 
identifier, much the same as a variable has an identifier 
in SuperBasic, so you would not normally find that kind 
of rather simplistic example. 

Because of that structure, standard APL requires 
two types of minus sign, one for negation of a number 
— known as the high-minus or negative marker — 
and one for subtraction. As explained in the 
documentation, that is not possible in the keyword 
version and a different syntax applies. A minus sign 
followed by a space will be interpreted as subtraction. 
That can make spacing very important, which is not 
normally a problem using the standard version of the 
language. 

When developing a program, QL/APL uses the 
standard QL editing key combinations, though 
alternative word processing packages may be available 
when the proposed package for integration with files 
from other sources appears. On the whole, error 
messages are informative, and a #TRACE function is 
included for those elusive bugs. 

It probably will not be long before you encounter a 
fundamental difficulty with using the language. There 
is no facility to interact or switch between APL and 
SuperBasic. That means when you want to save your 
first program, you should have a formatted cartridge 
ready, because you will not be able to format it from 
APL. That can be a major handicap if you find, for 
instance, that you have run out of storage space on the 
cartridge you are using. 
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In addition to most of the standard APL features, 
QL/APL also includes a number of additional functions. 
One is #CC (Console Control) which allows integration 
with the Qdos operating system for windowing, 
borders, screen modes and colours, filling, lines, 
circles, and so on. That command also allows access 
to the keyboard and sound control. One or two quirks 
appear, such as having to type: X is #CC 0 10 20 
instead of just: #CC 0 10 20 to position the cursor. 
The second statement throws an automatic line feed, 
positioning the cursor at 11,20. There are a few quirks 
like that but you tend to become accustomed to them 
fairly quickly, and even traditional QPLers should have 
no difficulty adapting to the keyword system, given 
time. 

In most cases, where the QL has a particular APL 
character available, QL/APL uses it, or its logical 
alternative. So, addition, multiplication and division use 
the normal symbols ‘+’, ‘*’ and ‘/’. For some reason, 
however, a number of the APL symbols which are 
available on the QL have been changed in the keyword 
version. For instance, rather than using square 
brackets, [], MicroAPL has chosen to use angled 
brackets <>. There seems to be no obvious reason 
for this. In fact, the square brackets, being unshifted, 
are probably easier to use. The ‘=’ sign has also been 
changed to ‘eq’, though that is possibly to make it 
consistent with the other relational keywords. 

One very obvious area for improvement is the filing 
system interface. At present, files are accessed by 
numbers rather than names. MicroAPL says it has no 
immediate intention of producing such a software 
interface but it mentioned a filing utility which will soon 
be released, allowing APL users to access files from 
other sources, such as Quill and Archive. 

The use of keywords will not be very appealing to 
experienced APL users but will mean more to 
beginners and encourage them to use the language. 
One problem with this method is that APL program 
lines, which are often long and complex in the symbolic 
version of the language, will be even longer in the 
keyword version, making the new more verbose 
structure even more difficult to read. Also, with the 
single minus sign and the 47 keyword primitives, 
which cannot be used for user-defined functions, 
conversion to the QL from other APL interpreters could 
pose problems for anybody not fully conversant with 
both versions of the language. 

The MicroAPL choice of keywords does not seem to 
be very standard. It has adopted a more meaningful 
Basic approach rather than just converting the Greek 
symbols to their respective words. That is probably the 


which has not been included but | have never 
encountered it, so it is no great loss. )GROUP and its 
associated functions have not been implemented. That 
is apity; though the command is really only a nicety for 
grouping functions. 

The documentation consists of a hefty but 
well-written, tome, designed both for beginners and 
advanced users. It is written in four sections; section 
one shows how to load and run APL and section two 
gives a very easy-to-follow beginners’ guide, with 
examples. Section three is a complete description of 
the language, which is useful to APL programmers and 
beginners, showing the keywords used. Section four 
contains useful reference information, including an 
invaluable Keyword-to-APL table and a summary of all 
the system functions and variables and their uses. 

Available from MicroAPL Ltd, the new keyword 
version of QL/APL costs £99.95 for which you receive 
a ROM cartridge containing about 30K of the 
interpreter, a Microdrive cartridge from which you are 
advised to make a working copy, and a detailed manual 
covering most aspects of the language for the 
advanced user and beginner. 

In addition, a standard QL/APL version is available, 
with all the associated symbols, for £129.99. It arrives 
with a separate card detailing the use of the standard 
keyboard to obtain the symbol graphics. One 
noticeable black mark is that MicroAPL has no 
telephone enquiry service if you have problems. That 
suggests that the package is definitely aimed at the 
home user rather than the professional APL 
programmer. 

[tis unfortunate that the QL is unable to handle both 
the symbolic and keyword versions simultaneously, 
which would allow new users direct comparison 
between the two versions. Any serious users who think 
they can handle it, and who are willing to pay £30 
extra, would probably be best-advised to buy the 
symbolic version, especially as there is a chance that 
they may use other APL implementations in the future. 
That, however, may create a problem when requring 
hard copy output, because there are, as yet, no printer 
drivers available. 

Both versions of the language are well worth 
considering. These professional products make the QL 
an attractive buy as the cheapest APL system 
available. The clever yet simple step of producing a 
keyword version of this cult language should create 
many new users and die-hard followers. 


QLI/APL - Specification 


* Special keyword version runs on standard QL keyboard 

* Compatible with IBM mainframe APL 

* All standard APL facilities implemented, with no restrictions 

* Variables up to 8 dimensions 

* No object size limit other than available memory 

* High precision floating-point routines accurate to over 15 digits 
* Error Trapping under program control 


best approach but makes conversion a little more 
difficult. Having said that, QL/APL keyword programs 
should still run on standard APL packages because of 
the keyword translator which is included in the 
interpreter. It converts keywords into the standard APL 
68000 codes on input, converting them back to 
keywords on output. Consequently there should be no * Wide range of system functions (string search, matrix-vector conversion, etc) 


difficulty when transferring programs between the two * Professional component filing system 
QL/APL packages. * Overlays (functions and variables may be combined into packages) 


: : * System Commands may be executed 
There are two features which are not implemented * Builtin colour screen handling, window support, colour graphics 
on the QL/APL system for space-saving reasons. 


* Printer control and redirection of output 
QuadFMT (or #FMT) is a formatting system function 
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* Commercial ‘picture’ formatter makes report generation easy 
* Multiple statements on a line 


ABC Elektronic 


Huegelstr. 10 -— 12 4800 Blelefeld 1 Western Germany 


proudly presents the Giga Soft 


Viouse 


for the SINCLAIR QL 


The Giga Soft Mouse comes ina ready-to-use package including a high quality 
mouse (resolution 0.01”), an interface for the joystickport of the QL and a software 
package. 


The software consists of the following programs: 


Giga a Basic (Tested in QL USER 1/86 p. 58) 


A totally new type of Basicextension for the SINCLAIR QL. It adds more than 70 
new commands to SuperBasic. Features: 


» Full mousecontrol from Superbasic » Programmable function keys. 


» Easily programmable MACINTOSH » Comfortable texteditor like 
style pull down menus. Basiceditor with 20 functions. 


» Very sophisticated spritanimation » Commands to program real windows 
commands. (with background refreshing) 


Fe = A. S = = % The new MACINTOSH style desktop 


Easily Applicable System Environment 
» E.A.S.E. is completely mousedriven. » E.A.S.E. has an inbuilt puzzle game. 


» E.A.S.E. supports real & E.A.S.E. gives you full I/O control, all 
pulldownmenus. functions can easily be accessed by 
» E.A.S.E. can work with up to 7 real using the mouse. 
windows. » E.A.S.E. windows can be scrolled 
» E.A.S.E. has an inbuilt scientific and moved across the screen. The 
calculator. size of a window can be changed by 
using the mouse. 


COD £222 DMExFRT Cheque with Order £210 DM Ex FRT 


How to Order: 

1. Send cheque to ABC or 

2. Transfer money to Postcheckamt, Dortmund, Account Mr. Budde No. 90283469 
or 

3. Send an order to the above address. We will despatch it cash on delivery. 


QLCOMMs 


BROWSING through Micronet’s news 
pages turned up an interesting item on 
something called Citadel. Apparently 
Citadel is the name for a slightly usual 
kind of bulletin board dedicated 
entirely to QL users. The host software 
for Citadel owes its origins more to 
adventure game software — like Dun- 
geons & Dragons — than it does toa 
purpose designed bulletin board. 

Citadel is split into rooms instead of 
relying on a menu system like other 
boards. Despite its extravagant claims 
of originality it is similar to PIP in Shef- 
field which uses TBBS host software. 
Not everyone likes the idea of having 
to explore the system in order to find 
interesting items. Fortunately, like 
standard bulletin boards Citadel also 
supports private mail for communicat- 
ing with other callers. 

The system operator — or sysop for 
short — is Ken Smith of DataManage- 
ment in York. Citadel is run on a Shel- 
ton CP/M machine to which a 28MB 
hard disk has been attached. Ken 
claims that the system holds around 
4MB of QL software for free download- 
ing. Citadel can be accessed at either 
300 or 1200/75 baud. It does not, how- 
ever, currently support Prestel soft- 
ware, soa standard terminal package is 
needed. No prizes for guessing that 
DataManagement sells such a package. 

Ken’s reasons for running Citadel 
are, therefore, partly mercenary. 
DataManagement was responsible for 
writing the software for the ill-fated 
Brightstar modem. When that project 
bore no fruit, the company looked 
around for another modem and hit 
upon Thorn EMI DataTech’s VX543. 
This isa dual standard V21/V23 modem 
with an internal buffer. That means no 
interface is needed. Communications 
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are carried out via one of the QL’s two 
serial ports at 1200 baud full duplex. 
Since the Thorn modem is not 
machine specific, it can be used with 
other micros besides the QL. DataMan- 
agement will sell the complete QL soft- 
ware/modem package plus Sagesoft's 
ChipChat IBM PC software for £340 
plus VAT. That is at least £59 less than 
Sagesoft charges for its own complete 
IBM package. 

DataManagement's — communica- 
tions package costs £231.50 including 
VAT. The price includes membership 
of Citadel, QLPrestel, QTerm, the 543 
modem plus serial lead. It is consider- 
ably more expensive than the £113 
exc. VAT now being charged by Tan- 
data for its QL comms system. Bot 
packages are compatible with bulletin 
boards and Prestel. 

QTerm has a number of extra bells 
and whistles such as the ability to 
receive up to 60K of files using the 
Xmodem error correcting protocol. 
An upgrade, QTerm2, is planned 
which will contain a useful off-line text 
editor. QL Prestel is written in BCPL 
and features the ability to automatically 
log into Prestel, capture 10 frames and 
then log out again all at a preset time. 
The one thing it does lack is a tele- 
software downloader for Micronet. 
This should be available later as an 
upgrade. DataManagement also sells a 
variety of other software for the QL 
including QL Finance Manager and QL 
Life. 

The drawback with Citadel is that 
one needs to pay a subscription fee to 
DataManagement in order to access it. 
Ken Smith believes that will be set at 
around £25. That will, of course, keep 
casual callers off the board. Callers 
need to have a valid password as well 


i=) 


as knowing Citadel’s actual number. 
Users also have to pay for the cost of 
phoning York which is not much fun if 
it is not a local call. Membership of 
Citadel will be initially restricted to 
around 500 to prevent the system from 
becoming permanently engaged. 

Citadel is currently the only bulletin 
board dedicated solely to QL owners. 
It has a constantly changing range of 
Qlsoftware available for free 
downloading. Ken is obviously a QL 
freak himself with his personal 
machine sporting 1.6MB of floppy disc. 
He also puts out a two page QL news- 
heet. 

Citadel does have some competition 
in the bulletin board field. Stephen 
Adams has set up a board aimed at 
Sinclair users. The host software is 
CBBS (R) which will be very familiar to 
ardent hackers. Stephen's main 
interest is in selling communications 
software for the Spectrum. He does, 
however, welcome QL owners. Based 
in London the board’s number is 01 
249 3238. It will cope with either 300 
or 1200/75 baud calls but not with Pre- 
stel software. 

Strangely enough Stephen's board 
also runs on a CP/M machine. Ken 
Smith has yet to write the software to 
turn the QL into a bulletin board host. 
In Stephen Adams case he is using a 
Superbrain with 720K worth of disk 
storage. The board operates 24 hours a 
day and gets a large number of calls 
from overseas users as well as UK 
enthusiasts. Unlike Citadel, Stephen 
makes no charge for accessing the 
board. 

For those interested in Citadel or the 
comms package, DataManagement can 
be contacted at Clark House, Haxby, 
York (0904 760847). 


Our resident expert 
Tony Dennis brings 
you up to date on the 
latest from the 
communications 


world. 
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For many years computer scientists have used games 
as models to test new programming techniques. That 
permits them to test their routines within a well- 
defined environment, rather than under the often 
ambiguous real-world conditions. 

The major difficulty researchers of artificial intelli- 
gence face is one of complexity. Making a program 
play the game of Noughts-and-Crosses, which was 
once thought to require intelligence, is no longer a 
challenge. Moving to chess, that provided a significant 
challenge for many years, Even today, chess programs 
have not quite achieved world-class fame but they can 
easily beat the vast majority of people. A new game 
challenge was needed, the oriental game of Go. 

Though the rules of the game are far simpler than 
chess, the game is far more complex. After more than 
20 years of research, the top programs still play at little 
better than novice level. Next month we will present a 
QL SuperBasic program which plays the game. 


Though not highly proficient, the program provides a, 


good introduction to the game and should prove 
something of a challenge. The program has been 
designed specifically so that it is easily modified and 
developed. 

Go is a two-player game, played on a board 
inscribed with a grid of 19 x 19 lines, giving 361 inter- 
sections, as shown in figure one. The two players, one 
playing black and the other white, play alternatively by 
placing one of their infinite supply of stones on to any 
vacant grid intersection of the board. The ultimate 
object of the game is to surround territory — vacant 
intersections— with your own stones, the winner being 
the player with the highest score — most territory — 
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at the end of the game, That score is modified by cap- 
turing enemy stones during the game. 

The first move of the game is played by Black, usu- 
ally the weaker player. Go has an exceptional feature 
for board games, allowing players of differing 
strengths to enjoy a challenging game. If there is a sig- 
nificant difference between the playing strengths of 
the two players, Black's first move consists of placing 
between two and nine handicap stones on to the 
board, Those stones are placed in a specific pattern on 
to the nine points marked on the board — see figure 
one. Figure two shows the appropriate patterns. 

Any vacant point immediately adjacent to a stone is 
called a ‘liberty’, Thus a single stone can have two, 
three or four liberties — figure three — depending on 
its position on the board. To capture a stone, the oppo- 
nent must place his own stones onall of those liberties. 
Thus, in figure four, if Black’s last move was to fill the 
last liberty of the white stone, then the stone would be 
removed from the board. If two or more stones are 
immediately adjacent to each other, horizontally or 
vertically, they are said to be connected to form a 
‘group’. Note that diagonal connections do not count, 
so there are three groups shown in figure five. It is not 
possible to capture a single stone in a group; instead, 
the whole group must be captured as a single unit by 
filling the combined liberties of all the stones —figure 
six. These are the rules of the game but a few complica- 
tions follow: 

Suicide. A player may not place a stone on the board 
such that, at the end of the player's move, the stone or 
its associated group would have no liberties. Thus, in 
figure seven, Black cannot play on either of the points 


Marcus Jeffery attempts to unravel the 
mysteries of the oriental game GO. 


marked ‘1’ or ‘2’, Black, however, may play on point ‘3’ 
because that would leave the white group with no 
liberties and the white stones would be removed, thus 
creating liberties for the black group before the end of 
Black’s move. 


Handicap patterns 
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Liberties 


Ko, meaning infinity. Ko occurs when a single 
stone is captured and the opponent can play 
immediately back on to the vacated intersection to 
recapture the previously-played stone and produce 
the prior position. If that sounds a little complex the 
situations shown in figure eight should help to explain 
things. To deal with this anomaly a special rule pro- 
hibits a player from placing a stone which would pro- 
duce the ‘immediately prior position’ but must instead 
play at least one intervening move somewhere else on 
the board. Those intervening moves are usually played 
so that they threaten the opponent and demand an 
immediate reply — a move in ‘sente’ for Japanese 
readers. Those ‘Ko threats’ allow the player to re-take 
the Ko position — i.e, the intersection disallowed on 
the previous move — and compel the opponent to 
find a similar threat in order to continue the Ko fight. 
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Capture 


A further problem can occur in which more com- 
plex Ko situations develop. Figure nine shows a ‘triple 
Ko’ situation. 

(a) Black plays at ‘2’, capturing the white stone on the 
right. 
(b) White then captures the black stone just below ‘1’. 
(c) Black captures the white stone just below position 
3 
(d) White, having played an intervening move, can play 
back into the position of the first capture — just to the 
right of ‘2’ — removing the black stone. 
(e) Black recaptures the white stone at ‘1’ by playing on 
the now vacant intersection below it, and so on. 
During the normal game, if neither player is willing 
to give up this Ko fight, the game is cancelled. Fortu- 
nately, such situations are rare and the program which 


we will be developing will not be asked to deal with 
them. Doing so would require the computer to store 
all board positions during the game and check them 
against the current position to see if they match. If they 
do a Ko situation has arisen. 

Inquisitive readers may already have pondered 
whether a group of stones is ever completely safe from 
capture by the opponent; the answer is that it is which 
brings to light a very important concept of the game, 
that of ‘Life and Death’ for a group of stones. A liberty 
which is entirely surrounded by stones of the same 
colour, so that it is controlled by them, is called an 
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Group capture 


‘eye’. We have already met an example of this in figure 
seven, where the Black play at ‘3’ kills the white group 
by filling the hole, or eye. You will notice that to kill 
this group, the eye filling move must be the last stone 
played. If, for instance, the white group was not sur- 
rounded by black stones, placing a stone in the eye 
would contradict the suicide rule. 

Taking the concept one stage further, imagine a 
group containing two eyes, such as the White group in 
figure 10. To capture the group, the last Black stone 
must fill both eyes simultaneously; that is impossible, 
because Black can place only one stone at a time. Con- 
sequently, this group, and any containing at least two 
eyes, is safe from capture and will remain on the board 
until the end of the game unless, of course, White is 
stupid enough to fill the eyes. 
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Suicide 

Itis not even necessary that the eyes be controlled in 
one group. The two six-stone white groups shown in 
figure 11 — remember diagonal connections do not 
count — share the two eyes, ensuring that neither 
group can be captured by Black. 

Take care, however, for although the two groups in 
Figure 12 appear to share the two eyes at intersections 
‘2’ and 3’, Black can capture by playing the sequence of 
moves: ‘1’. ‘2’ and '3’. The eye on the right — ‘2’ — is 
known as a ‘false eye’. 
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All those groups have had fully-developed eye for- 
mations but in practice it is not necessary to form two 
eyes for each group — merely to have the potential to 
do so if attacked. Thus the White group in figure 13 is 
safe, even though it has not formed two eyes. 
Whichever of the two positions Black plays into — the 
remaining two points are mirror images — White can 
place a stone to form two eyes. Experienced players 
would not need to go so far and might have open- 
looking positions which they know they can defend. 

The end of the game is decided by mutual consent of 
the players or when both players pass. That tends to 
happen when neither player feels there is any advan- 
tage to be gained from continuing to play. Passing is 
allowed by either player at any stage during the game 


Triple KO 
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but is rarely used. That rather ambiguous end-rule has 
caused many problems for computer programs which 
find it very difficult to decide when to stop. It is a fea- 
ture which we will not be implementing in next 
month’s program, leaving it to the human player to 
decide when to stop. 


The eyes have it 


At the end of the game, each player’s score is calcu- 
lated in the following manner: 
(a) All neutral points, known as ‘dame’, are filled. 
Either player can fill them, since they will not be calcu- 
lated in the final score. 
(b) Any stones, or groups of stones, which cannot 
avoid capture are removed from the board, just as if 
they had been captured. That implies that it is not 
necessary to capture those ‘dead’ stones during the 
game, so long as you are able to do so if you wished. 
the capturing sequence could be played out but would 
benefit neither player, since the defender would have 
to fill his territory — losing points — to capture the 
opponent's stones — gaining points. 
(c) Each player’s score is then calculated as the 
number of vacant intersections controlled by the 
player — ie., the player's territory — minus the 
number of stones captured by the opponent. The win- 
ner is the player with the most points. 


tt mgmt tt 
+, 


e, 

CD 
bee les gi Ll 
fale Loa adhealnte Wt loc 


Shared eyes 

So why is the game of Go such a challenge when 
compared to similar games of intellect such as chess? 
Most computer game programs build what is known as 
a ‘game tree’ from each position. For instance in chess 
there are reckoned to be, on average, approximately 
30 possible moves from any given board position. Tak- 
ing that as a basis, if a computer were to try every pos- 
sible move it would have to examine 30 possible 
resulting positions, deciding how good each is. 

When trying to decide the merit of each move it may 
be a good idea to check which moves the opponent 
can make from the position. That is reasonable 
because the opponent will have the first move from 
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the position and it is obviously no good if the oppo- 
nent can immeidately check-mate you. ; 
If we assume that the computer will examine all the 
moves which the opponent can play from the 30 posi- 
tions which the computer can reach initially, we have 
to examine somewhere in the region of 900 (30 x 30) 
possible positions. Taking that a stage further, we 
could look at all the computer’s possible replies, giv- 
ing approximately 27,000 positions to be evaluated, 
followed by 810,000 positions at the next level, and so 
on. This look-ahead evaluation is shown diagramati- 
cally in figure 14, where the branches from each posi- 
tion node show the possible moves from that position. 


3 2 


Though the two groups appear to 
share two eyes, they are easily 
captured using the sequence shown. 
Horrendous though those numbers may appear, 
they can be reduced somewhat using a variety of 
techniques, particularly the alpha-beta algorithm, and 
they are manageable by high-speed computers. The 
average number of moves available from a given posi- 
tion in the game of Go, ona 19 x 19 board, is estimated 


to be around 200. On our 15 x 15 board that number 
is still likely to be around 125. If we start our standard 
look- ahead technique, the exponential growth gives 
15,625 for the opponent's replies, 1,953,125 for the 
computer's second move, 244,140,625 positions from 
that, and so on. 


Eye potential 


Even large mainframe computers would find that a 
real chore and the humble QL could not be expected 
to use the technique and find a move this side of 
Christmas. What is more, it is not unusual for Go texts 
to examine some moves up to 20 or 30 moves ahead to 
decide the outcome of a particular battle. 

That demonstrates the futility of attempting to find 
moves in the game of Go by trying brute-force, look- 
ahead techniques which have been used previously. It 
is one of the prime reasons the game is so difficult to 
program. Instead, we will develop a series of routines 
which will examine the present board position in the 
hope of being able to choose some likely moves. 
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D065 fous 


@ Does your micro chat to 70,000 people across the UK? 


@ Can your micro interview pop stars, hackers and doyennes 
of the computer industry? 


@ Can your micro provide the answer to your technical and 
software problems? 


@ Could your micro send and receive telex’s worldwide? 


@ Does your micro do your shopping for you—and have it 
delivered to your door? 


@ Is your micro an answering machine, delivering your 
private mail whenever you log-on? 


NO?.................... Shame! 


—-----------7 


To: Micronet 800, 8 Herbal Hill, London EC1 
Please send me a brochure on Micronet 800 


Name 


Address 


Micronet 800 
8 Herbal Hill, London EC1R 5EJ 
Telephone: 01-278 3143 


Telephone No 


Age Micro 


QLW. 4.86 
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*x BYTEBACK x 


ARCADE GAMES 
BJ In 3D Land .... 


Zapper/Eagle 
BT The Return 


UTILITIES 

ICE (EPROM) .. 
Choice . 
Artice ... 

ICE Toolkit 


ICE (complete system) . "s 


BUSINESS 

impacct Sales 

Impacct Purchase Ledger £45.00 
Impacct Nominal Ledger £45.00 
Impacct Stock Control £45.00 
Impacct (comp. system) £170.00 


Lands Of Havoc . 
Cuthbert In Space ... 
Crazy Painter 


BRAIN GAMES/SPORTS 
Scrabble ... 


Super Backgammon 
Fictionary 


QDUMPS ........ 
Supercharge .. 
Super Sprite Gen. 
Super Astrologer 


Archiver .... 


Decision Maker ... 
Cash Trader .... 
Touch 'N’ Go .. 
Project Planner ... 
Entrepreneur 

Home Finance (Buzz) 
Integrated Accounts 


Cartridge Doctor 


Macro Assembler 
Gardener .. 
Monitor 
LANGUAGES 
Metacomco Assembler 
Metacomco C 
Metacomco Pascal ... 
Metacomco Lisp . 
Metacomco BGPL 
Superforth 


Classic Adv./M. Quest ......... 
West .... 


Nemesis ... 


Joystick Adaptor 
Quickshot II Joystick 


-. £4.50 Expanderam 256 
.. £8.00 Expanderam 512 
Seikosha SP1000 QL Printer £238.00 
(With Centronics Interface) 


PLUS ALL LATEST SOFTWARE/HARDWARE 
ALL PRICES INCLUDE VAT AND FIRST CLASS POST 
TELEPHONE (0636) 79097 FOR PERSONAL ASSISTANCE 
Send Cheque/PO to: 


BYTEBACK 6273 sr RING GARDENS, 
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WARK, NOTTS NG24 4UW 


Deep in the land of the Hidden Kingdoms, 
guarded by a vicious and evil dragon, 
can be found the Elixir of Life... 


Dragonhold Sf 


DRAGONHOLD is an animated 
adventure game for the Sinclair 
And just mc) 


Four-way SCROLLING map graphics 
ee to over screens!) 
ndividual computer controlled 
animated characters that you can 
communicate with 

Extremely detailed hi-res graphics 
Both visual and text puzzles 

Game variations and new Slee ss 
each time a new game is generafed 
Save game feature - you can save and 
play as many different variations as 
you like! 


aye 
@K at these features - 


Available on microdrive ae for 
£19.95 including p. p. Send cheque 


or P.©s to 


11 Bannerdale Road 


Sheffield S7 2DJ 


COMPUTER 


SYSTEMS Tel: 0742 583665 


NOW! 


COMPUTER 
SCRABBLE 


for the 


SINCLAIR QL 


“Probably the best 


game available 


for this 


machine.” 
(MICROSCOPE 6/2/86) GQR@ 


AMSTRAD | BBC/B CBM64 | EINSTEIN | SPECTRUM QL ] 
CLUEDO * Oo * * @) 
MONOPOLY bd * * * * 1@) 
SCALEXTRIC [e) eT, (e) 
SCRABBLE * * * * | 
RRP cass 9.95 12.95 12.95 9.95 14.95 (cart) 

disk 14.95 | 14.95 1495 15.95 
%* Available Now! + CBM 64 Scalextric, £9.95 (cassette) O Available 2nd quarter. 


JAIL ORDER: 


| M. 
Please send cheque or Postal order to: LEISURE GENIUS, 3 Montagu Row, London WIH 1AB. 


Please send me SCRABBLE? for the 
S/INCLAIR QL computer, at £14.95. 


| NAME 


| ADDRESS 


POST CODE 


CLUEDO® trade mark and copyright licensed by Waddingtons Games Lid 


MONOPOLY® is produced under license trom Parker Brothers and 
tons Games Lid. SCALEXTRIC" 1s a registered trade mark of 


Wadi 
Hornby Hobbies Lid. SCRABBLE* trade mark and copyright licensed by 
JW Spear & Sons PLC. All copyrights reserved LEISURE GENIUS" is 


a registered trade mark of Winchester Holdings Ltd 


3 Montagu Row, London W1H 1AB. 
meee 
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espite being one of the oldest computer 
D languages in use, LISP has been proving 

popular in recent years. That is evident by its 
use in research and development in the growing field of 
Artificial Intelligence. 

So, why has this archaic language been receiving so 
much attention? LISP is very different from the more 
accepted high-level languages, such as Pascal, BASIC 
and FORTRAN. Unlike those expression-based 
languages, everything in LISP is defined in terms of 
‘lists’. If you want to include some data, it is shown in 
a list format. Manipulating data is carried-out by 
functions, which have been defined in terms of lists 
and operate on lists. It is that simple and uniform 
syntax structure which has made LISP so exceptional 
among computer languages. 

The uniform structure of LISP has also helped the 
language avoid another of the major pitfalls — 
compatibility and portability. As a language becomes 
more popular, new implementations of it arise, each 
designed for slightly different applications. That tends 
to create a wide variety of dialects, none of which is 
fully-compatible with other implementations of the 
language. To an extent that has also happened with 
LISP but the language is such that only the basis of it is 
usually defined. 

Other functions are then created by the user for 
particular jobs. That makes the language particularly 
portable. If a program written with one version of the 
language uses functions not normally accessible in a 
different version, it is easy to define them. The ‘list’ is 


Figure One: Basic 
List Structure 


+ rami cearae 


Figure Two: Array 
Structure 
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ISP: THE LANGUAGE 


Twenty five years after its invention LISP is fast becoming the popular language of Artificial 
Intelligence programmers. Charles Gerrard introduces our tutorial series. 


a fairly familiar concept in computing. For instance, if 
you were to type on the QL: 


PRINT PEEK(999) 


you get the answer 80. In this case, the number 999 is 
the ‘pointer’ and the number 80 is the ‘data’ accessed 
by the pointer. There is no reason why we should not 
consider the number 80 as a further pointer. Thus: 


PRINT PEEK(PEEK(999)) 


gives the answer 96, That, in turn, might be considered 
either as data or yet another pointer to a further 
location. Considering numbers in that way we can 
create a list structure (Figure one). The major 
differences between a list and an array — Figure two 
— is that the list has no set length and is much more 
flexible. 

At present, the list shown in Figure one is of little 
use, since it holds no information. Information, 
however, can easily be held by considering each 
pointer to access two consecutive locations, as shown 
in Figure three. By including that concept in our list of 
pointers we can create a variable length list of data— 
Figure four — but the story does not end there. 

Striving for further consistency, LISP does not 
consider the first item of our two-location construct to 
be data. Instead, both locations are assumed to hold 
pointers — Figure five — so our list from Figure four 
is represented by the structure shown in Figure six. 
What advantage does that have? Well, though Figure 
six has the data pointer accessing data, since it is 
treated in the same way as any other pointer, there is 
no reason why it should not just as easily access 
another list — Figure seven. It is that flexibility which 
makes the list a far superior form of data structure to 
the array, allowing multi-dimensional constructs of 
variable length. With a list, itis not necessary to reserve 
storage for items before they are used, making 
memory allocation much more efficient. Also the 
dynamic quality of this form of structure means that the 
list can easily grow or shrink to meet the present 
requirements. 

We have seen how lists are stored internally but how 
are they shown within the LISP syntax? Simply 
surrounding a group of objects with parentheses will 
suffice. So: 

(ABCD) 

defines a list of four items. The technical term for them 
is ‘atoms’ and they may consist of any type of data. 
Note that spaces, not commas, are used to separate 
atoms, unlike other high-level languages. If we 
consider that in terms of the internal representations 
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we have discussed, we immediately encounter a 
problem. How does LISP know where the end of the list 
is? In the foregoing example, we have only four items, 
so we must have some method of ending the list. That 
is done using a special list structure known as NIL. It is 
an empty list—ie, alist containing no items — and is 
used to terminate finite structures. So the internal 
representation of: 


(ABCD) 


would be as shown in Figure eight. 

We have also examined the internal structure of a 
list containing lists. That is represented easily in the 
language by further parenthesised items. For example: 


(AB(CD)(EF)) 


is a list containing four elements, the third and fourth 
elements being lists containing two elements each. 

As in any other language, LISP must have a way of 
issuing commands to act on the list data. That is done 
using functions, which are written in the form: 


(funcABCDE...) 


where the first item in the list is the function name and 
the remaining items are the functions arguments. A 
simple example would be to write a function which 
adds a list of numbers. In BASIC, we might write: 


(eicrotat Olt- 0 


whereas in LISP we would make use of the addition 
function, PLUS. That would be written in the form: 


(PLUS 1234 56) 


When LISP finds that kind of construct, it will always 
try to execute the first item in the list, assuming it to be 
a function, and the remaining items will always be the 
function’s arguments. The final value is passed to 
whatever may be outside the bracketed expression. In 
other words, you can imagine that the entire 
expression is replaced by the answer. Thus, with PLUS, 
which can take any number of arguments, the 
following statements would yield the same result: 
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(PLUS 1 2 3 (PLUS 4 5 6)) 
(PLUS 1 2 (PLUS 3 4) 5 6) 
(PLUS 1 (PLUS 2 (PLUS 3 (PLUS 4 (PLUS 5 6))))) 

In many cases, the result of a function will be passed 
on to more complex calculations. As in BASIC, we can 
assign the result to a variable. Retaining the consistent 
structure, that is again performed by a function. In this 
case, the function SETQ. So, the BASIC expression: 


LETX=14+24+34+4+4+5+6 
would be written as: 
(SETQ X (PLUS 123 4 5 6)) 


Figure Four: A data 
list 


As you can see, SETQ expects two-arguments, the 
first of which is a variable, while the second can be any 
legal construct producing a result. LISP makes no 
distinction between integer, real and character 
variables, so ‘X’ need not only be assigned results 
from, say, arithmetic operations, but could just as 
easily be assigned character data, or even lists. 

One difficulty which you may of noticed is that a list 
must start with a function, because LISP always tries to 
execute the first element. That could cause difficulties 
if all we wanted to do was to create a list of data. For 
instance, if we were to write the list: 


(SINCLAIR QL WORLD) 


which is a list of three unspecified items, LISP would try 
to evaluate the expression by assuming SINCLAIR to be 
a function, with two arguments. We can avoid the 
problem by preceding the entire list with a single quote 
(’). So, to create a three-item list of data, as shown, we 
would need to write: 


" (SINCLAIR QL WORLD) 

Variables can be of any type, so we could easily assign 
the above list to a variable with: 

(SETQ X ’ (SINCLAIR QL WORLD)) 

There are three primitive functions, found in all 
implementations of LISP, which are necessary to 
manipulate the list structures. They are CAR, CDR and 


CONS. The last of those stands for CONstruct. CAR and 
CDR data are far more unusual, dating from the original 
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implementation of the language. They are acronyms 
for Contents of Address Register and Contents of 
Decrement register respectively. 

CAR and CDR are used to split list components. 
Taking a single list argument, which must have at least 
one element — ie, not the empty list, NIL — they are 
complementary to each other. The function CAR 
returns as its result the first element of its list 
argument. Conversely, CDR will remove the first 
element from its list argument, returning the remainder 
of the list as its result. So: 


(CAR ' (AB CDE) 


would give the answer ‘A’. The first item, returned by 
CAR, could be an atom that is not necessarily the case. 
There is no reason why CAR should not return a list as 
its result. Thus: 


(CAR * ((A B) (C D) E) 


would return the list (A B). 
lf we were to use CDR on the same two lists, we would 
get everything but the CAR element. So: 


(CDR ’ (ABCD E)) 
gives the list: 
(BCDE) 

and 


Figure Five: 
(CDR ’ ((A B) (C D) E)) 

would return the result 

((C D) E) 

which is a two-element list, the first element of which 
is a list with two elements. 

tis important to note that CAR and CDR do not change 
their list arguments physically but return a pointer to 


the appropriate data structure. Thus, if we assign a list 
of five elements to the variable X: 


(SETQ X’ (AB CDE) 
then find the first element, with 
(CAR X) 


the list X would not have changed, still having its 
original five elements, but 

(SETQ X (CDR X)) 

would change the list, throwing away the first element 
(A) of the list, then re-assigning it. 

That is satisfactory for splitting list structures but we 
also need a command to build list structures. That is 
CONS which requires two arguments which it will 
concatenate into a single list, returning this list as its 
result. So, the command: 

(CONS ‘A (BC DE) 


would return the complete list (AB C D E). Again, there 
is not reason why the first argument of CONS should 
not be a list, rather than a single atom. Thus: 


(CONS ‘(A B) (C DE) 


would return the four-element list ((A B) C D E). Take 
care here, because CONS did not produce the list (A B 
CDE) as might have been expected. Each use of CONS 
will always add a single element to the start of a list 
structure. If that element is a list, the first element of 
the result will also be a list. To get the latter list we 
would have had to use something like: 


(CONS ‘A (CONS 'B ‘(CD E)) 


where the nested calls give the required result. 
It is common to find these instructions nested, so 


(CDR (A B) (C D) E) 

will return ((C D) E), and 

(CAR (CDR '((A B) (C D) E))) 

will give (C D), which is (CAR '((C D) E)), then 
(CAR (CAR (CDR ‘(A B) (C D) E)))) 


will produce “C”, which is (CAR ’(C D)). 
That can soon become tedious and the ever-prolific 


Figure Six: True list 
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brackets are already becoming confusing. Fortunately, 
most LISP implementations allow abbreviations of 
them. The abbreviated functions still begin with a ‘C’ 
and end with an ‘R’ but can have any combination of 
‘A’s and ‘D’s in between. There will usually be a limit 
on them and on most micros — including the 
Metacomco package for the QL — the limit is set to 
three. So, the command: 


(CAADR (A B) (C D) E)) 


would give the same result as the previous example. 

It can often take a time to become proficient with 
these functions. One easy method of visualising exactly 
what is happening is to imagine the list diagrams. From 
Figure four, the CAR gives the left-hand pointer and 
CDR the right-hand pointer of the two-location 
element. Try using this method with the list diagrams in 
Figures seven and eight, where: 


(CAR ‘(A B C) D E)) gives (A BC) 
(CDR ‘(A B C) D E)) gives (D E) 


and 


(CAR (AB C D)) gives A 
(CDR ‘(A BC D)) gives (B C D) 


The CONS function can be viewed as CONStructing a 
new node, such as the one in Figure five, and assigning 
the CAR and CDR pointers to its two arguments. That 
is obviously correct once you realise that: 


(CAR (CONS P Q)) is P 

and 

(CDR (CONS P Q)) is Q 

thus, 

(CONS (CAR ‘(A B C)) (CDR (A B C))) 
gives the original list (A B C). 


Figure Seven: Lists 
of lists 
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Figure Eight: 
Terminating list 
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Building lists from scratch using CONS can be a long 
job, requiring nested calls, such as: 


(CONS ’A (CONS 'B (CONS ’C (CONS. . .)))) 


to build the list (ABC. ..), with each call adding a 
single element to the front of the list. Fortunately, LISP 
offers an alternative, with the function LIST. LIST can 
take any number of arguments and works by 
evaluating each argument and returning the result in 
the form of a list. So: 


(LIST ‘A ’B 'C ’D 6) 
would produce the list of characters (AB C D E). You 
should be very careful when using quotes in a list 


function, remembering that it evaluates its arguments. 
So: 


(LISTAB 'C 'D’E) 


would expect “A” and “B” to be variables. For instance, 
let us say that A=22 and B=33. Then the foregoing 
would give the list (22 33 C D E). Similarly: 


(LIST 123 (PLUS 2 2) 


would give the result (1 2 3 (PLUS 2 2)), regarding the 
(PLUS 2 2) as the final element of the original list, itself 
a list of three elements, none of which should be 
evaluated, because the entire list was preceded by a 
quotation, but 


(LIST 1 2 3 (PLUS 2 2) 


would return the more likely result (1 2 3 4), by 
evaluating the (PLUS 2 2). 


We have now covered all the major ground work of 
LISP but being very different from conventional 
languages, it may be difficult to realise how it could 
ever be used effectively. In the next instalment, we will - 
look at how LISP allows you to define your own 
functions. They are the basis of all programs. We will 
also look at how to implement conditions — much as 
IF... THEN . . ELSE in BASIC — and the principles of 
recursion, which are often used in the language. 
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MICRODEAL FLIGHT SIMULATOR 


~ Normal Price £19.95 
Mail Order Blockbuster Price VUST £14 


MICRODEAL LANDS OF HAVOC 


Normal Price £19.95 
Mail Order Blockbuster Price JUST £10 


MICRODEAL CUTHBERT IN SPACE 
Normal Price £14.95 


| Mail Order Blockbuster Price JUST £7.50 
“MICRODEAL CRAZY PAINTER 


Normal Price £12.95 
| Mail Order Blockbuster Price JUST £5 


fa MICRODEAL HOPPER {joystick INTERFACES 


Normal Price £12.95 . 
Mail Order Blockbuster Be aot, 7 


Price JUST £5 JUST ¢ (Allow any Atari/Commodore 


Joystick to plug into the QL) 


1 eh . ., ee eee ee 
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Please charge my Credit Card type ___ Ss ————Cs—‘C;CSCSCSCSCSCCCCCC Num beer E 

i i 
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PUZZLE PAGS 


Marcus Jeffery provides 
the elusive solution to 
January's brain teaser 
and poses another cryptic 
problem to try your 


patience. 


The 37’ series puzzle from the January, 
1986 issue seems to have created 
plenty of interest. The problem was to 
generate the series of numbers in the 
series 3'7), starting 1,3, 7,9, 21,... Hav- 
ing found a method of doing it, you 
had to generate the 1,500th term, then 
sum all the digits in that number for 
the final solution. 


Figure One. Look-up table. 


Very few people were caught by the 
‘red herring’ program generated. Nor- 
man Hilton reckoned that the ‘REPeat 
divide’ loop would be executed nearly 
5*10” times, taking more than 10” 
years to run, which he felt might miss 
the January 31 deadline. Martin Harris 
also appreciated the humour, which 
did not fool him. Instead, he had a 
good laugh contemplating the number 
of universes which might come and go 
whilst the QL was solving the problem. 

Unable to find any expression which 
would produce the series, many 
people adopted the sledgehammer 
tactics of producing an unordered file 
of as many numbers as possible. Hav- 
ing done that, a number of sorting 
algorithms were used — including the 
quicksort from QI User, August, 1985. 
So long as sufficient numbers were 


30 


generated originally, that gave the ans- 
wer to the 1,500th term. 

It is at this point that the second 
problem occurred — how to total all 
the digits. It may sound easy but unfor- 
tunately the answer contains 35 digits, 
just a little beyond the accuracy of the 
QL. Therefore it was necessary to write 
your own arithmetic routines to work 
on large integer numbers. 

The most common method was to 
use arrays to represent the numbers, 
so that each element of the array would 
show part of the number, say three 
digits, and the next element would 
show the carry from that, and so on. 
Alternatively, some people preferred 
to use strings to represent the long 
integers, using the QL built-in coer- 


43 343 


147 | 1629 


cion to convert each string character 
into a number for the multiplication 
routine, The advantage of the first 
method is that storage can be reduced; 
the latter method, however, is more 
elegant and makes the large numbers 
slightly easier to print. 

There are a number of ways to solve 
the problem, other than generating a 
huge file, then sorting it. Based round 
the table layout — Figure one — many 
people turned to logarithms to find the 
solution. Derek Fairburn describes 
that neatly, though the non-mathemati- 
cians may like to skip the next bit. 

Recognising that 7! is 3“ where ‘k’ is 
Tilog 3, 3'7! can be written as 3"**)) 
Since p’ always increases as ‘y’ 
increases, for any constant ‘p’, then 3'7) 
increases in the same way as itk’. 
Therefore it is necessary only to find 


the 1,500th term in the series of values 
‘a=itk*). That can be computed fairly 
easily but encounters the problem of 
accuracy. It is necessary to find an 
approximation for ‘k’ which is close 
enough to ensure that ‘a’ has a unique 
value for every pair of ‘i’ and ‘’ values 
involved, It seems that a value of 
k=1.7712 gives a unique ‘a’ for 
i<=1107 and j<=625, which is well 


I would like to thank John Cook for his 
very detailed analysis of the problem. 
He would also like to point out that the 
sum of the digits in the 400,000th term 
is 2,511, which was solved by his pro- 
gram in two-and-a-half hours. Now 
there is something for you to work on. 
This month’s winner however is J. 
W. Bray of Harrogate, North Yorkshire 
who receives a year's free subscription. 


HPY PESE RQUYMKGSH EW EXGJNV 
BNET VKI XZHVMKCP DZ BYTJH 


BVRB ? 


Figure Three. Encrypted question. 


beyond the 1,500th term in the series. 
Having written a program to find the 
1,500th element, the only remaining 
problem was to print that number. 

Figure two shows a SuperBasic pro- 
gram which will generate the series of 
numbers, printing each number. It 
works from Figure one, by holding a 
large array of values for powers of 
seven (up to 7”. At each iteration of the 
main loop, the floating point form of 
this array (flsevens) is searched for 
the next smallest value, which will be 
the next term in the series, assuming 
that the array is large enough. That 
value is printed, then multiplied by 
three, to give another unique value 
further in the series of numbers. 

So, in conclusion, the correct ans- 
wer is 144’, which is obtained from 
adding the digits in the number: 
1314829220567723794371407416 
2880083 


On with this month’s teaser. A few days 
ago I was sitting in front of my QL, wait- 
ing for it to find the answer to life, the 
universe and everything, musing over 
what question to ask. I typed-in the 
question and was about to print it out 
when I noticed it had changed. The QL, 
in its wisdom, had decided to execute 
asmall encryption program on which I 
had been working and the question 
was then rather garbled, as you will see 
from Figure three. 

Normally it would have been no 
problem butI could not remember the 
question. Fortunately, I still had the 
original encryption program, given in 
Figure four. You guessed it— the pro- 
gram had encrypted itself. 

Well, that’s life. Try as I might, I 
could not remember the original ques- 
tion. Knowing how intelligent the aver- 
age QL user is, I am sure you will be 
able to work out the answer. 


0OGO_MS#3, SKD1_MKEM_SWAU 


FXYMZP = 0O 
OCOEBV FSIKSWXZ 


TR RCU(#3) JYWG YSEQ ANDFNRSU 


OUXDD#3, NTNF 


XV TZTL>96 VJA AGAS<123 VKIS IOIA=MSME-32 
WU SYSK>64 UIZ ZFZR<91 UJHR 


HNHZ = 
KYKAXR QAOIH 


LRLD + BTUIVL 


MK IOIA<91 DSQA SMYK JTHBA 


ZFZR = 
JTK ZNZPMG FPDXW 
ILDJQ AGRS$(DJIDV); 


DIDV - 26 


TLMAND = 
VDLY 
KNFLS CITS$(FLFX); 
LVM SQ 


QAR GUGWTN XKACKOPR 


FPTYL#3 


ZRSGTJ + 1 


Sinclair/QL World April 1986 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
4oo 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


REMark @L USER 3174 Solution 
REMark (c) M. C. Jeffery 

DIM sevens%(40,15),fl_sevens(40) 
DIM d$(5) 

d¢="00000" 

initialise_sevens 


count = 1 
number = 1500 
REPeat next_digit 
lowest = 1E99 
FOR best = 0 TO 4O 
IF lowest>fl_sevens(best) THEN 


lowest = fl_sevens(best) 
element = best 
END IF 


END FOR best 
long print element 
long_multiply element, 3 


Figure Two. 


fl_sevens (element) = 3 * f1_ sevens (element) 


count = count + 1 
IF count > number THEN EXIT next_digit 
END REPeat next_digit 
DEFine PROCedure initialise_sevens 
FOR power = O TO 4O 
FOR units = O TO 15 
sevens%(power,units) = 0 
END FOR units 
END FOR power 


sevens%(0,0) = 1 
fi_sevens(0O) = 1 
FOR power = 1 TO JO 


FOR units = O TO 15 
sevens% (power, units )=sevens%(power-1,units) 
END FOR units 
long_multiply power, 7 
fl _sevens(power) = 7 * f1_ sevens (power-1) 
END FOR power 
END DEFine initialise_sevens 
DEFine PROCedure long_multiply (i.4j) 
carry%=0 
FOR units = 0 TO 15 
result’ = j * sevens%(i,units) + carry% 
sevens%(i,units) = result% MOD 1000 
carry% = result% DIV 1000 
END FOR units 
END DEFine long_multiply 


DEFine PROCedure long_print (i) 
PRINT count, 
FOR units = 15 TO O STEP -1 
a$ = "oo" & sevens%(i,units) 
PRINT d$((LEN(d$)-2) TO LEN(d$)); 
END FOR units 
PRINT 
END DEFine long_print 
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RULES: 


All entries must be written on a post- 
card with the panel below stuck to it. 
Any other form of entry will be disqual- 
ified. Entries must be sent by post to: 

Puzzle Page, 

Sinclair QL World, 

79-80 Petty France, 

London SW1 
to arrive no later than Friday, April 11, 
1986 

The winner, who will receive a free 
year's subscription to Sinclair QL 
World, will be the first correct entry 
drawn from the editor's random 
encryption device. All entries will be 
judged by the editor, whose decision is 
final and no correspondence will be 
entered into regarding the result. 


| EET FORM: 


The answer to the question is: 


| Name: 


| Address: 


MICRODRIVE SYSTEMS 


Silicon | 
Price RRP 


MDVA 128K QL & thermal 
rinter 
MDVB 128K QL & thermal 
printer & monochrome 
monitor 
MDVC Quattro QL & thermal 
printer & monochrome 
monitor 
MDVD Quattro QL& 
monochrome monitor & 
Epson LX80 & 
Centronics Interface 675.00 757.45 
MDVE Quattro QL & Microvitec 
Colour monitor (with tilt 
and swivel stand) & 
Epson LX80 & 
Centronics Interface 850.00 947.20 


499.95 339.90 


275.00 449.15 


395.00 574.20 


DISK DRIVE SYSTEMS — 
all include insider interface 


DDA 128K QL & thermal 

printer & single drive 395.00 538.90 
DDB 128KQL & thermal 

printer & single drive & 

monochrome monitor 465.00 648.15 
DDC Quattro QL & thermal 

printer & dual drive & 

monochrome monitor 675.00 844.20 


DDD Quattro QL & dual drive 


SILICON EXPRESS 
DISK DRIVE SYSTEMS 


Insider Disk Interface Card 


Fits snugly into the 
. ca * 
main expansion port se of the QL, connecting to the 


In 
corporates complete ROM-based Toolkit utility and 


* 


& monochrome monitor includes new softw: 1 
, are utility di 
sine Habe! i. ah microdrive emulation ce 
‘ast access times e.g. boots ‘Quill’ in under 10 


Centronics Interface g99.00 1027.45 
DDE Quattro QL & dual drive 


seconds 
Full two year guarantee 


& Microvitec colour 
monitor with tilt and Disk Dri 
. * ve ; rives 
swivel & Epson LX80 & * 314" single or dual track double sided with small footprint 
prin 


51/4" single or dual 80 t 
rack double sid i 
supply for EACH mechanism — high “Vane 
eae Utilities Disk 
riendly utilities disk with 
¢ e 
Easy microdrive to disk file inate ann 


Centronics Interface 4099.00 1 9217.20 


Savings of up to £218.00 


MICROVITEC MONITOR 


* Specifically desi 
gned for the QL 
Offers excellent 85 column text performance and 


TECO TM1265 MONOCHROME MONITOR 


* 


* 


Hi 
igh performance 80 column presentation ideal for 


’ outstanding graphics iliti | 
__gutsanding a capabilities word processing or s| 
i avis igh contrast medium resolution cathode : ae a Amber display - 
ugged cabinet with carryi 
rying handle 
* 


Tilt facility 


Optional tilt and swivel mechanism 
) Includes lead 


QUATTRO 512K 
QUATTRO QL INTERNAL MEMORY UPGF:ADE 


QU ATTROO 0 ar. THE QL WITH FOUR TIMES 
‘includes is 50 off RRP * Expands your QL’s memory from 128K to 512K 
or voucher Wor on Express NORMAL MEMORY * Leaves the expansion slot free for other boards 
512K internal memory * Internally upgraded at our service centre — 


see address below (NOT FREEPOS 
Increased performance from memory 7 day return nceh: wD 


intensive software e.g. Abacus, Quill, Contact our Sales Desk for further details 
Apchive: WARNING 


* 


* 


r Expansion ports unaffected by memory Memory expansion boards may require excessive 
No power problems power from the QL power supply. This will affect 

* 12 month warranty the reliability of the QL when used with other 

* Includes Psion software — Abacus devices needing power from the QL. This is NOT 
Archive, Quill & Easel true of the Quattro memory. 


EPSON LX-80 . CENTRONICS 
NLQ DOT MATRIX PRINTER PRINTER INTERFACE 
* Up to 100 characters per second * Connects QL to any Centronics compatible printer 
* Correspondence or draft quality printing * Plugs into SER1 or SER2 port and directly into printer 
* Wide choice of typestyles * Fully self contained with 3 metre cable 
* Easy to change ribbon cartridge * 1K buffer 
* Standard Centronics connection 
* Requires Silicon Express Centronics interface for 
connection to SER1 or SER2 ports 
ORDER FORM = eee ee ——= —- 
For immediate despatch of goods you can order now by phoning us on Leicester (0533) 374917 quoting your Access or Barclaycard number. | 
I Or fill in and post the coupon — no stamp required, and we will despatch your goods within 14 days. 
Please allow 14 days for delivery of postal orders — telephone orders immediate despatch SYSTEMS | 
i Insider Disk Interface board (IDI) @ £113.85 QUATTRO QL @ £325.00¢ q: Eres thennal printor Ha. 250 voucheni-I™ please tick i 
! | Single 80 track double sided drive system including IDI @ £199.00" MDVA 128K QL System @ £199.95¢ ‘ eco dieg DEL Weat eee, beecraberts ee a 
Dual 80 track double sided drive system including IDI @ £270.00* MDVB 128K QL System @ £275.00+ Access or Barclaycard details for £125.00 to 5 | 
) *3'2"0 5140 please tick MDVG Quattro QL System @ £395.00t Silicon Express Limited. 
5 Double sided double density diskettes 51/4” pk of 10 @ £25.00 y MDVD Quattro QL System @ £675.00 PRIGES, INCLUDE VAT: ROSTE PACKING | 
j Double sided double density diskettes 312” pk of 10 @ £35.00 MDVE Quattro QL System @ £850.00 - - 
Centronics printer interface @ £29.95 : DDA 128K QL Drive System @ £395.00+ POST TO: Silicon Express Ltd., I 
i Epson LX80 @ £285.00 DDB 128K QL Drive System @ £465.00¢ FREEPOST, Rothley, Leicester LE7 7QZ 
Microvitec 1451 DQ3 colour monitor @ £275.00 DDC Quattro QL Drive System @ £675.00¢ Name & Address | 
i Tilt and swivel for above @ £24.00 DDD Quattro QL Drive System @ £899.00 
Teco TM1265 monochrome monitor @ £79.00 DDE Quattro QL Drive System @ £1099.00 
| 512K Quattro memory upgrade @ £125.00¢ 


— Silicon express 


— Silicon Express Limited Silicon House, Fowke Street, Rothley, Leicestershire LE7 7PJ — U.K. Tel: 0533 374917 
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Vi 


Bien 


offer the best alternative 
to the microdrive 


Speeding up your data access with Viglen disc drives 
means instant reliable access every time 


Specially designed to fit neatly into the case of the Sinclair QL, the Q-Disc Interface 
Board (CST) and companion disc drives are colour-matched to compliment your QL computer. 


ave in its 
Drive In 
own case 


VU LLL 


All drives are compatible 


and ready to plugin and use with all currently 
available QL Disc Interfaces. When bought 


with the Q-Disc Interface, they are ready to 
plug in and use. 


Other peripherals for the QL 
MONITORS Philips Monochrome Green 


1e 


PRINTERS 


Model BM7502................... £85 
FA ht kal gee £89 
Model 1118 sn... £4AGO 
Colour Montior emer”... £499 
Colour Monitor CME". ...... L299 
esas eee £229 


Quen Data Daisy Wheel Printer. £499 


Serial to Centronics Interface lead 
for above printers................ £25 


Perspex printer stand for: 
80' Col printer ...208 a... £16.95 
136 col. printer .................. £27 


449 


ive with 
Dri ves 


VL LILYLLLYYLUSLYLIT TY 
ls (Mi Me, 


LZ 
<<} 


Prices correct 
at time of 


aa to press. 
ffers subject to 


availability. 


Visit our showroom 
Open Monday — Friday 


9.30 — 5.30 


Saturday 9.30 — 4.00 


5% inch Sin 
Power sup 


formatted Capaci ty 


Drive on its own 


£139, 


Drive with 
@-Disc intertace 


GALAYG 


inch Dual P 


Post to: VIGLEN COMPUTER SUPPLIES. 


Please add £12.00 
carriage fordisc drive, Credit card holders may order by telephone on 01-843 9903. 


$8 for printers and 
monitors, £3 for printer 
stands. 

Unit 7, 

Trumpers Way, 
Hanwell W7 2QA. 
Tel: 01-843 9903 | 


l Please send me 


Name: 


Address: 


Unit 7, Trumpers Way, Hanwell W7 2QA. 


gle Drive 
Ply. 720k 


with built-in 


vive A440K for 
apacl 


] lenclose Cheque/P.O. for 
Make cheques payable to Viglen Computer Supplies. 


including carriage. 


MANOR fj 


Card No: 


Signature: 


I | prefer to pay by ACCESS/BARCLAYCARD (delete one). 


Credit Cards valid only 
if signed by card holder. 
Address must be the 


same as card holder. 


es 
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UNPREDICTABLE 
Micro 


Our guide to QL 
astrology continues 
with this program to 
calculate planetary 
positions. 

By John Dice. 


TO CALCULATE the position of a planet to the kind of 
accuracy most astrologers need — let us say one 
minute of arc at the most — you have to use different 
styles of mathematics depending on the planet with 
which you are dealing. Fundamental to the calcula- 
tions of all of them except the Moon is the solution for 
elliptical motion. 

Our Solar System is held together by the gravita- 
tional pull exerted by the Sun on each of the planets. 
The factors which affect the orbits of the planets are to 
the masses of the Sun and planets and the distances 


APHELION 
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between them; twice the distance results in a quarter 
of the attractive force. That dictates the elliptical shape 
of each of the planetary orbits. An ellipse looks like a 
squashed circle and has two foci. The Sun occupies 
one of the foci, as you can see in the diagram. 

The mathematical properties of ellipses are well- 
known, so we may calculate a planet’s position with 
relative ease. For our minute of arc accuracy that is all 
we have to do — with two minor corrections — for 
Mercury, Venus, Earth (Sun + 180°) and Mars. 

Planets further from the Sun than Mars need closer 


attention. There the gravitational control from the Sun 
is much weaker and the planets are more easily ‘per- 
turbed’ from their mean positions by the gravity of 
neighbouring planets. Those perturbations can 
account for up to one degree difference in logitude for 
Pluto, the most distant planet — we think. The prob- 
lem is that nobody has yet produced a direct 
mathematical solution of this complex effect. People 
who tackle the perturbation problem seriously, like 
the U.S. Naval Observatory which publishes high- 
accuracy planetary ephemerides, tend to use a process 


PERIHELION 
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PLANETARY POSITIONS 


100 s$="AriTauGemCanLeoVirLibScoSagCapAquPis" 

110 p$="SunMooMerVenMarJupSatChillraNepPluNod” 

120 DEFine FuNction uwex) 

130  N=xX-SE0#e INT Cx / 360) 

140 FETurn x 

150 END DEFine 

160 DEFine FuNction fracc¢x) 

170 “e=x-INTCH) 

180 RETurn x 

1970 END DEFine 

200 DIM ly€1l2)2DIM dAg¢iZ>d 

} 1000 INPUT "Name sn 

1010 INPUT "Day"sd 

1020 INPUT "Month" sm 

1030 INPUT "Year";y 

Lodo INPUT “Hostr si 

LOSO LNPUT “Miata sina 

1060 INPUT "Time Zone CE-W+)"3tz 

1079 INPUT “Delta T' pit 

10520 PRINT: PRINT 

1090 gmt=tzth+mi/604+dt/2600 

1100 i=12*¢Cy+dB00)¢m—-S2 fHCZRCI-INTCI/12Z) #1 294+74+365%19/12 

1110 g=INTCJ2+A+INTCi/dS9-SEORSIIF jf=2.299171E6& THEN GO TO 1120 

1120 jHj+INTCi/dS00)-INTC1/12009+38 

1130 t=(j-2-diS502E6-—.5+ymt/2d)/36525 

2000 RESTORE : 

2010 GO SUB ZO008LU=RADCuCa) > 

O20) (FC ye sp Ss 

2020 GO SUE Z00O0:ma=FRADCuCad) tea=maiGO SUB S00Ote=aiGO SUB 30008 an=FADCa)?GO SUB 
3000tap=RADCad:GO SUB SOOOtin=RADCa) READ axtIF p=2 THEN pas 

2Od0 a=ea-ma-e*SINCead:IF ABSCad21E-S THEN ea=ea-a/(i-e*CoS¢ea)2GO TO 2o0d0 

2050 “veaxn*(COSCead—-e) ty=ax*SINCead*SHRTC1l-exe) ' GO SUB 3010 

2060 IF p=i THEN xe=xhiye=yhixh=O8 yh=O 

2070 xg=xh-xetyg=yh-ye:zg=zh 

2020 rv=SORTCxg#exgtyg#tygtzg*zg) iltarv/1735.14 

ZO7O a=(1-720209E-2+8.95E-9)/SGRTCax)d/Cl-exCOS (ea) ) ix=-axSINCea)d ty=axCOS( ea) *Sark 
Tci-e*xed):GO SUB 3010. : 

2100 IF pei THEN xwexhtyweyhixh=Otyh=o 

2110 xv=xhoxw! tyveyh-ywstzvezh 

2120 xxexg-lt#xviyy=yg-lt*yvizz=zg-lt#zv 

ZA3BO IF pHi THEN nu=¢¢-17- 2327-1. 737E-Z2et *#SINCLUD—-1- 2729S INC 2 (matap) 29/3600 
2140 a=DEGCATANCyy/xx) > Ply pd zatlBOx( Car on Coe hone Cxx*YV—-yy*xVIeO THEN ly 
Cpo=-lgcpo 

21350 dgCp»=DEGCASINGzz/rv)) 

P2160 b=lg¢p)?GO SUB Sa20° 

2170 NEXT peGo Ta 100 

3000 FEAD a,h,c,ydta=athettcutxettalxtetet sRETurn 

3010 a= x*COS Cap r-y*#SINCap) th= X*#SINCap +y*#COS Cap ixh= maxCOSCan)—beSINCand*COS¢in) # 
yh=a*SINCan)+h*eCnSCan)*COSCin) ?zh=hb*SINCind tkETuarn 

S0Z0O PRINT péCSep-2 TO Sep 5 Sis=ABSChO/BO8qHitcHsOefracc(q)tx=INTCcysIF x210 THEN 
PRINT" "3 

3030 PRINT XPSSCSHINTCis+l TO Se INTCid+39 3 INT C6O0#frac(cd+e3)g2TF beO THEN PRINT 
eens : 

30d0 PRINT" fRETurn 

S000 DATA 23597.13335,-173d- eet ae oes -6:REMark mean lunar node 

S010 DATA 359.4755,35999. 05,—-1-SE—-d ,-3-33E-6,1-6735108E>2 7-4 -1SE—-5,-1-26E—7 ,07,0,0 
59,9,101 .227058,1- 7197175 4 S278E— d,3033E- a 0,0,0,0,1:REMark Earth 

S020 DATA 102.279d,1d9d72-5,6-dE-6,0, -205 6142, 2.046E-5,-3E-8,0547- 14594,1.-185208 
sie 7SS9E—d 0, 28.755 5, 3702806, 1-208 sE-d, 0,7. ‘OOZ8S1,1-S6083E-3,-1.8 33E-5,0, +38 S709 
Bé sREMark Mereuny 

ses DATA 212-6032,59517-8,1-2561E-3,0,6.S2069E-3, 
JIS gd 1E-d,O, Sd. SSd19, -SOBIG61,-1- SS639E-3 0,3 «3956: 31,1-O058E- 
SS16:2REMark Venus 

SOdQO DATA 317-5290 ,197139-86,1-S0S1E-d,1-19dE-6,9-33129E-2,9. 206dE-S5,-7- B,O,de 
78644, ©7709917,-1-389E- 6, -oeeee= By, 285 4318, 1-069767, 1+3125E- d,4. ese 1.8503 
33,-6+75E-d, 1+261£-5,0,1-523691 #REMark Mars 


—-d.77dE-5, 9-2 1E-S,0,75- 77965, 0 
= 3), i. 72E- UV iQig Cea 
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called Numerical Integration on a big mainframe 
computer. Because of cumulative errors, very high 
accuracy is demanded and it takes a considerable time 
—not really viable ona QL, especially if you want your 
answers in seconds of computing time rather than tens 
of minutes. 

The most common expedient for a home computer 
is to generate the required perturbation functions by 
adding many sine waves of different frequencies and 
phases to synthesise or ‘curve-fit’ the errors. You then 
add those to the mean position represented by the 
elliptical model. It is the method used in Michae 
Erlewine'’s book, A Manual of Computer Programm- 
ing for Astrologers, published by The American Feder- 
ation of Astrologers, Inc. The Moon’s motions are 
perhaps the most complex of all and the sine-wave 
method is used extensively. 

I describe the solution for elliptical motion, giving 

better than one minute of are accuracy for Sun to Mars. 
The input and output routines are not very elaborate 
—you may wish to add colours or specialised glyphs 
yourself. 
The first section of the program, to line 200, sets up 
strings and functions for later use. Then the time is 
INPUT as a series of integers to enable a Julian Day 
number to be calculated. Day 0 in this system is Jan 1, 
4713 B.C., but the program uses a Modified Julian Date 
counted from midday on 0 Jan 1900 — 31.12.1899. 
From that the Greenwich Mean Time is calculated the 
Century Increment T having a value between 0 and 1 
this century, AT is an irregular time correction allow- 
ing for variations in the Earth’s speed of rotation, 
hence the length of the Solar day. It is at present about 
54 seconds, and the accuracy freaks will look it up in 
the American Ephemeris or the Astronomical 
Almanac. Otherwise enter “0” and you will not be far 
wrong, 
Section 2000 is the meat of the program. The first 
thing calculated is the Mean Lunar Node — used later. 
That, like the other elements used in this program, is in 
the form A+B*T+C*T’+D*T°. All angular measures 
are converted to radians, A planet-counting loop is 
established, then the six Orbital Elements which 
define the orbit ofa planet are evaluated. They are, in 
order of appearance: 


=) 


1. Mean Anomaly (MA). fictitious mean position 
for the planet, shown at “A” in the diagram, measured 
from its perihelion (Greek: peri, near; helios, Sun — 
meaning that part of an orbit which is closest to the 
Sun). A circular orbit is assumed in which the 
hypothetical planet moves at a constant velocity. 

2. Eccentricity (E). A measure of how “squashed” 
the ellipse is. A circle is a special case of an ellipse with 
E=0, and where the two foci coincide at the centre. 

3. Ascending Node (AN). The angle measured 
from 0 degrees of Aries to the point where the orbit 
goes north of the ecliptic—the reference plane formed 
by the orbit of the Earth. 

4. Argument of the Perihelion (AP). The angle 
from AN to the planet's perihelion, measured along 
the orbit rather than along the ecliptic. 

* 5. Inclination (IN). The angle at which the whole 
orbital plane is tilted relative to the ecliptic. 
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6. Semi-Major Axis (AX). The size of the orbit in 
Astronomical Units. 1 A.U. is the semi-major axis of the 
Earth’s orbit — about 150,000,000 km. 

Line 2040 solves Keplar's equation for Eccentric 
Anomaly. Johannes Kepler (1571-1630) was the first to 
describe the elliptical orbits of the planets and estab- 
lished the laws governing their motion. His celebrated 
equation, EA=MA+E*SIN(EA) (all angles in radians) 
cannot be solved directly, hence the iterative loop in 
this program. It converges to an accuracy better than 
required in three or fewer iterations. EA looks like, 
and is, a fairly abstract quantity but has many computa- 
tional uses, as you will see. 

Line 2050 gives the X and Y co-ordinates of the 
planet's true position in its orbit. This co-ordinate 
system places the Sun at its centre (0,0) with the posi- 
tive X axis passing through the perihelion. The 
ROTATE subroutine (3010) rotates the whole ellipse 
in space and tilts it into the position it occupies in real- 
ity. The result is the rectangular heliocentric co-ordi- 
nates of the planet’s true position. In this co-ordinate 
system, the X and Y axes are directed along the celes- 


APHELION 


tial equator, and they are positive towards 0 degrees of 
Aries and Cancer, respectively — for the mean 
equinox and ecliptic of date. The 2 axis is positive 
towards the north celestial pole. 

Line 2060 stores the Earth’s co-ordinates and 207 
subtracts them from the heliocentric co-ordinates of a 
planet to give geocentric positions. The Sun’s co-ordi- 
nates (0,0) are entered in 2060, so as to find its geocen- 
tric position. The Z co-ordinates are ignored in this 
practice, because the Earth orbits in the plane of refer- 
ence and always has Z=0. 

We are getting close. The accuracy at this point is 
probably a usable two minutes of arc incorrect at most 
for the Sun out to Mars for any date this century. We 
need to know the retrograde status of the planet and 
one of the two most worthwhile corrections, abera- 
tion, uses much of the calculation used for retrog- 
rades, Aberation really means correction for light- 
time. 


We deal with such vast distances in this Solar System 
that by the time the light from some distant planet has 
reached us on Earth, the planet and the Earth have 
moved somewhere else, What we want to determine is 
where the planet appeared to be at a particular time, 
rather than its true position. That may sound odd and 
some astrologers are doubtful as to the validity of such 
aconcept for their work but most have not heard about 
aberation or thought about it, so the mainstream 
opinion is to go along with the astronomers on this 
one and correct for light-time. 

So line 2080 finds the Radius Vector, the distance 
from Earth to planet, and uses it to find the light-time 
in days. Line 2090 finds the elliptical Velocity vectors 
(in AV. per day), then uses the ROTATE subroutine 
again to place those vectors in their positions. Lines 
2100-2110 convert the heliocentric velocities to 
geocentric and line 2120 multiplies light-time and vel- 
ocity to get distance travelled in the light-time. That is 
the aberation which is subtracted from the geocentric 
position in line 2120. 


PERIHELION 


The second correction is notation, the irregular 
wobbling of the Earth’s axis due to the gravitational 
action of the Sun and Moon on the equatorial bulge of 
the Earth. Nutation is a short-term component of a 
much bigger and slower wobble called precession of 
the equinoxes which causes the point 0 degrees of 
Aries to move backwards through the entire Zodiac in 
26,000 years. Precession has been included in the 
values of the orbital elements given in the DATA state- 
ments but nutation must be dealt with separately. 

So in line 2130, when the Sun’s orbital elements are 
easily available, we calculate nutation from the Sun's 
mean longitude and the lunar node, That is added to 
the longitude derived in line 2140, which also negates 
the answer ifa retrograde is detected. Declinations are 
computed in line 2150 for those keen on declinations. 
Then the PRINT subroutine is called to print the posi- 
tion in degree and minute notation — then on to the 
next planet. 


37 


BIG BLUE SNAKES AS APL MOUNTS QL 


APL the highest of all high level languages developed over the years on IBM mainframes is now available on 


the Sinclair QL at only- 
APL available in “Keyword” or £ ot GS | q 5 
Original “Squiggle” versions. + £1.95 p.p. 


The QL development tool with 100,000 user heritage. 


What the users say: “Easier to learn than Dbase” 
“No silly limitations” Eanes 
“Models as fast as 123” 
“No compiling — so it’s easy to change”. | IM LIC(RIOL | 
Order now by credit card (Access and Visa) 01-622-0395 or send coupon to: TL APL 
Micro APL Limited, 
Unit 1F, Tideway Industrial Estate, [hele oo ee | 


87 Kirtling Street, London SW8 5BP. 
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Please send me more details about the power of QL/APL. Name 
| Please sendme _______—s copies of QL/APL at £99.95 plus £1.95 p&p RECESS | 
[_] | enclose cheque/P.O. made payable to MicroAPL Ltd. 


| [ Please charge my Visa/Access card number. 
Card expiry date 


Tel No. QL/3/86 


| KEYWORD ORIGINAL SQUIGGLE 


QL and Sinclair are trademarks of Sinclair Research Ltd. 


(Prices include VAT. Please allow 28 days for delivery. For credit card telephone orders, phone 01-622 0395) 


FOR THE SINCLAIR QL ister 
“129-95 


Q- Groves AND ~ 


sae os a OD ONLY 
telecommunieations systems The only communications package for the QL. 
run ritis! . 
“Telecommunications The modules are available separately but, by 


come ore the 1 using all three as a complete matched system, 


ot, ai > full advantage can be taken of the integrated PRICES INCLUDE VAT 


I'd like to know more about Tandata 


Q-CONNECT | communications for the QL. | 
Complete RS232 output for general I? Nome | 
communications from 75-9600 baud with full l l 
two way buffering and flow control. Software 
on a micro drive to support all 3 modules — | augress | 
includes Prestel Viewdata/Videotex and 
: VT100 emulation, and many other features. aR ihc Ni per | 
Q-MOD a ie cnr Ss scone 
an ra | e Manual dial V23 modem operating at 1200/75 | ee | 
bps and 1200/1200 half duplex. I teino | 
Tandata Marketing Limited Al ee 
Albert Road North, Malvern, Worcs. WR14 2TL ee a Marketitigutd 
Teleph : 06845 68421. Telex: 337617 Tandat G. . ays . andata 1 ts 
See el SHEEN, THlaeeeAGH AMT dO cs Provides traditional pulse/loop disconnect —_|_ albert Road North, Malvern, | 
Prestel alco Gade eeu ee einen: ple auto-dial and auto answer. l Worcs. wrR14 2TL. | 
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To start, some of the volumes designed to 
increase your programming prowess, 
Among the 10 books Hutchinson 
publishes for the QL, no fewer than three 
cover SuperBasic programming. The 
lastest, Making The Most of The QL by Dick 
Meadows, aims to be a practical guide to 
using the QL both for beginners and more 
experienced users. It gives an overview of 
the SuperBasic language and includes 
chapters on peripherals, applications 
programming, and graphics. at £7.95, it is 
an ideal book for those who want to brush 
up their programming technique. 

SuperBasic on the Sinclair QL, by 
Donald Alcock, looks lightly at 
programming, and graphics. At £7.95, it is 
unusual style — handwritten text with 
plenty of diagrams and listings — should 
prove informative for those who want to 
expanda limited knowledge of the subject. 
Published by Cambridge University Press, 
it costs £5.95. 

Helping you release the full potential of 
the QL, is the claim made by Maximise 
your QL by Susan Curran and Ray Curnow, 
Published by Papermac at £8.95, it reckons 
to pick up where the user guide ceases. 
Topics covered include printers, the Psion 
packages, files and Microdrives, and 
graphics. It concludes with a look at the 
internal workings of the machine — 
memory management, Qdos, and the Qlan 
local area network. Intended for those 
inexperienced, or perhaps just confused 
users, who have exhausted the User Guide, 
it also includes some suggestions for 
applications. 

Adam Denning’s Advanced QL Machine 
Code makes light reading of a potentially 
heavyweight subject. Although no! 
intended for the complete novice, it takes 
the time to give a general introduction to 
the QL and the 68008 MPU. Subsequent 
chapters deal with Qdos, incorporating 
machine code utilities into SuperBasic, file 
handling, multi-tasking, job control, and 
screen handling. The extensive 
appendices include games and utilities 
istings, as well as the Qdos systems 
variables. In all, it is a comprehensive 
guide for the machine code programmer. 
Published by Duckworth at £8.95. 

At the same price, from Sigma Press, is 
The 68000 User Guide by Lionel 
Fleetwood. It is the kind of book the novice 
would do well to read before tackling 
Dennings book. In common with most 
texts on microprocessors, it begins with an 
introduction to 68000 architecture — the 
physical structure of the chip. There 
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follows a section on assembler which deals 
with the instruction set and addressing 
modes, 

There are also chapters on using stacks 
and registers, moving data, writing 
subroutines, and bit-level operators. It is 
rounded-off with two chapters on how to 
improve your programming style. 

Two books on the same subject but with 
avery different approach are The Sinclair 
QDOS Companion, by Andrew Pennell, 
and Adrian Dickens’ QL Advanced User 
Guide. The Qdos Companion begins with 
a history of Qdos and then describes 
memory organisation with the aid of 
memory map diagrams. It proceeds with a 
detailed examination of multi-tasking, 
input/output, device drivers, interrupts, 
and external ROMs. Two more chapters 
look at the 8049 second processor and 
Qdos utilities. The style is informal and 
probably more suited to those who 
require an introduction to the subject 
rather than a reference manual. 

Ifitisa reference manual you seek, then 
look no further than the QL Advanced User 
Guide. Starting with an introduction to the 
68008, the book presents an overview of 
Qdos anda program which enables you to 
access Qdos from SuperBasic. A full listing 
is given, together with some example 
programs in assembler. The remainder of 
the book covers all aspects of Qdos ina 
reference format. 

The Sinclair QDOS Companion is 
published by Sunshine and costs £6.95. 
The QL Advanced User Guide, published 
by Adder, is £12.95. 

One of the many books on using the 
Psion packages, but one of the few to 
include them all, Sinclair QL in Business, 
by Arnold Handley, has a light, refreshing 
approach to putting the applications to 
work. Chapter headings include Quill, the 
unofficial ways —tricks not in the manual, 
Abacus as a word processor?; Writing a 
report to the boss; and Abacus with no 
numbers at all — the fastest duty list. 
Despite the humourous approach, the 
book contains much useful information 
and good advice, although it obviously 
does not go into the same depth as similar 
publications which cover only one 
program. It costs £9.95 and is published by 

ewnes Microcomputer Books. 
QLArchive is dealt with ina much more 
detailed fashion in the Century QL Archive 
by Ian Murray, costing 14.95. It may 
sound expensive but for your money there 
are 350 pages of information and advice. 
The book is suitable for beginners and the 
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This month a roundup of the best QL titles to have appeared in the last six months. 


more experienced who want to use it as a 
reference guide. 

The step-by-step approach takes the 
reader through each stage with plenty of 
practical examples and some business 
applications. Among other things, subjects 
covered include information storage and 
retrieval, multiple files, finding and sorting 
records, designing screens, and linking 
files to be used in more than one 
application. Three other books in the 
series deal in a similar manner with Quill, 
Easel and Abacus. 


Still on the subject of Psion software, 


Word Processing With QL Quill, by David 
Dempster, attempts to suit everybody from 
the novice to experienced word processor 
operators. While that approach is not an 
unqualified success, the book is 
sufficiently well-organised enough to 
include something of value to most Quill 
users. The appendix contains a reference 
section which gives a brief description and 
cross-reference to additional information 
inthe text. The book is one of the Longman 
series Working With The Sinclair QL, 
which also includes two books on Abacus 
and another on Archive. 
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The third and 


concluding 


(definitely) part of our 


dipsomaniac’s diary — 


Samantha Mead. 


9.30 a.m. There is clearly one 
golden rule to be followed 
when learning your way 
round the QL — never allow 
too much time to elapse 
between sessions. If nothing 
else, all this hi-tech is 
infinitely forgettable from 
one month to the next. Settle 
to final session with QL, only 
to discover that expert has 
unearthed a quirk he finds so 
fascinating that I am not 
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PART TWO 


allowed near the micro. 
Further, when he discovers 
the solution, he is so pleased 
about it he will tell me only 
that “It’s buried deep in the 
manual” and assumes I will 
not be able to work it out. 

Ihave to say that there are 
disadvantages to having one 
of these otherwise useful 
beasts in the house. The 
trouble with experts and QLs 
is they suit each other 
admirably and can combine 
to give beginners inferiority 
complexes as well as 
hangovers. Treat mixture 
with extreme caution. 

As for the quirk, it is just a 
small matter of getting the QL 
to talk to a printer. It appears 
that just because you have 
managed finally to acquire a 
printer lead, you should not 
assume automatically that 


you will be able to use a 
printer. Even deciding into 
which socket to plug the 
allegedly standard British 
Telecom jack is not 
straightforward and is not 
helped by the fact that it does 
not appear to be a standard 
British Telecom jack, but 
that’s another story. Suffice it 
to say you are better off with 
the official Sinclair printer 
lead than making one 
yourself, assuming you 
thought of being so clever 
anyway, which you might do 
since you get more help from 
the manual on that than on 
merely printing-out your 
listings. Odd people, these 
manual writers. Since I hope 
to be using a serial printer, I 
have plugged into the SER1 
socketand all Ihave to do is to 
tell the printer to print. 


Excuse me for the next few 
hours. 

10.45a.m. [have worked my 
way through Beginners’ 
Guide and have experienced 
certain frissons of excitement 
when discovering in Chapter 
12 the sub-heading Simple 
Printing. Expert points out 
smugly, however, the main 
chapter heading is Screen 
Output and a printer is not 
involved. On to Chapter 13, 
which although it says it is 
about Arrays, clearly does not 
want to help me array 
anything on paper. End of 
Beginners’ Guide leaves me as 
ignorant of printer/micro 
relationships as I was initially. 
So although I can get together 
simple listings, I can’t print 
them. 

Since Editor wants copy this 
week, not next year, I grit 
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teeth so as not to sink them 
into expert and ask politely 
for help. Smiling sweetly, 
expert refuses to tell me how 
to print from Basic and 
suggests I try printing a Quill 
document instead, which 
might at least make the 
printer work. 

Try not to sound too 
insincere as I thank him for 
pointing out the obvious and 
turn to Quill section, page 19, 
which tells me that ifI haven't 
hooked-up the printer 
correctly nothing much will 
happen. Oh, they're all 
coming out with the helpful 
advice this morning. When I 
have followed all the other 
dynamic instructions given 
on page 19, the Microdrives 
whirr, click and stop, the 
printer hiccups, emits two 
random characters which 
bear no relation to anything, 
and stops. Expert nods wisely 
and says he knew it would do 
that and would I like him to 
try to find a solution? 

Leave him in possession of 
QL and go to look for 
offensive weapon. Return to 
find printer has printed what 
appears to be three letters of 
the Greek alphabet and expert 
is, bafflingly, looking even 
more smug. It appears that 
although I am attempting to 
use an RS$232 printer, almost 
any of which, according to the 
manual, is satisfactory for the 
Psion packages, I have not yet 
attached the correct printer 
program to Quill, which is 
something I am told to do 
only in the Information 
section to be found at the back 
of my manual. Full (?) 
instructions given here and it 
must all be done before you 
load Quill. Push expert off 
chair to relieve feelings. 


illustration by Steve Dew 
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Screen information tells me 
that if | had an Epson FX80, 
Quill would probably have 
printed-outfirst time. Far be it 
from a mere beginner to 
suggest that a manual 
designed to help me might 
have mentioned that in 
Chapter 1, page 1, of the 
Introduction. Anyway, I have 
a Brother EP44, a printer 
which is not one of the eight 
mentioned in the print-driver 
software which needs to be 
patched into Quill. So I still 
have a problem. Take break 
for coffee and tranquillisers. 

12.30 p.m. The information 
section tells me if my printer 
is not included in the list of 
eight, I have two options. Do 
nothing, in the hope that the 
routine given will please my 
printer anyway, because 
“almost any printer” should 
cope. Of course, mine is one 
of the allegedly rare models 
which does not, so I try option 
two and install a driving 
program which is compatible 
with the specification of my 
printer. If you have mislaid 
the handbook for your 
non-QL-approved printer, 
you might be in big trouble 
here. If you can determine 
your printer’s baud rate and 
general operating parameters, 
the QL manual will do the rest 
- finally. 

Anyway, with a good deal of 
help from a now unbearably 
self-satisfied expert, I finally 
achieve a printout on a real 
sheet of paper, probably the 
hardest piece of copy ever. It 
isa shame it does not say 
anything more earth-shaking 
than “Hello World.” 

It has to be said, though, 
that I am way out of my depth 
on this printer lark and I 
really can’t find anything on 
the subject in the manual 
which could be interpreted 
easily by a novice. Left to my 
own devices, I would still be 
sitting up all night with a 
mutinous printer hiccuping 
nonsense at me and I have just 
realised that I still cannot 
print from Basic. 

3.00 p.m. Go on treasure 
hunt through manual to solve 
mystery of printing from 
Basic, collecting nuggest from 
Beginners’ Guide (p67), 
Concepts (p13, p16, p17) and 


Keywords (p4, p8 and p40), 
not necessarily in that order. 
As with all good games, clues 
are heavily disguised and Iam 
not so thrilled with the prize. 
Never mind, at least I get paid. 
Where you find consolation, 
gentle reader, is your 
problem. 

Expert is beside himself 
with glee about the solution, 
which I give you without the 
slightest pretence of 
understanding it. Those 
sufficiently masochistic to 
wish to learn for themselves, 
close your eyes now; the rest, 
read on. 

To print from Basic, simply 
—- hollow laughter — attach a 
DEVICE to a CHANNEL. SER1, 
which is the socket 
masquerading as BT 
compatible, is, it appears, a 
DEVICE. A CHANNEL, which is 
a line of communication 
between the micro and the 
printer, is opened by the 
command OPEN #3, SER1. 

My printer, the Brother 
EP44, needed the command 
BAUD 1200 as well and aC 
tacked on the end of SER1. 
The command PRINT is 
followed by #3 each time it is 
used, assuming that hard 
copy is required, and it had 
better be after all [have been 
through! LIST #3 sends a 
listing to the printer and 
money sends expert to the 
off-licence, which serves not 
only to top up my alcohol 
level butalso to gethim out of 
the way while I recover my 
temper. 

4.30 p.m. Decide to samplea 
little sophistication to 
smoothe my nerves, in the 
form of SuperBasic, moving as 
Ido so, the manual tells me, 
into a remarkably advanced 
computing environment. 
How I can cope with that 
when I could not even crack 
the printer fiasco remains to 
be seen. There is no dobut 
this manual has a trick of 
making the would-be user 
feel significant. The manual 
and I proceed to discuss the 
main features of SuperBasic. 

The first example of this 
remarkably-advanced 

computing environment 
which we discuss is: 
LET pet1$ = “CAT” 
LET pet2$ = “DOG” 
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IF pet1$<pet2$ THEN PRINT 
“Meow” 

Decide to take a break 
before all this sophistication 
overwhelms me. 

6.00 p.m. Back at the 
keyboard for the night shift, I 
am enthralled by the 
simplicity of it all. Assured by 
the manual that SuperBasic 
always tries to be 
“fntelligently helpful” and 
will not reject my efforts 
out-of-hand unless they are 
completely hopeless, I 
type-in an attractive program 
all about flying kites and 
clearing garden sheds. I 
check it very carefully and 
even remember a few things I 
learned last month; then I sit 
back and wait for something 
to happen. It does. Helpful, 
intelligent SuperBasic reports 
At line 100 ERROR IN 
EXPRESSION. I check again. I 
am hurt. I have copied it 
exactly as printed. I look up 
the message in the Concepts 
section, to be told that “an 
error was detected while 
evaluating an expression.” 
Not so. An error was detected 
while following the manual — 
by me. Scream for expert, who 
corrects manual with red pen. 
I insert semi-colon after the 
INPUT statement in line 100 
and the program runs. Super, 
ifa little basic. 

Intrigued by my brief 
encounter with the Concepts 


section, I browse a little 
further. I discover that not 
only are the names of all the 
socket pins merely concepts, 
so, too, are the Microdrives. 


- Could this open a whole 


new controversy on the 
subject? Delighted by those 
revelations, I research further 
to find that instructions on 
starting-up the computer are 
to be found here, as are details 
on almost everything else the 
manual hitherto has ignored. 
Perhaps that is why the 
instructions on putting 
together the manual 
recommends Concept section 
for a middle slot. 

Clearly, innovation applies 
to the English language as 
well as the firmware of the QL 
—another first for Sinclair 
Research. 

Also included in the section 
is the concept — yes, really — 
of SOUND. Now this I have to 
try. On a first reading of the 
relevant sections of the 
manual I suspect that it si 
more a case of making it 
sound good than it really 
sounding good, and guess 
what? I am correct. Much 
waffle about fuzziness — 
deliberate — and randomness 
— intentional — and not too 
much about how to achieve a 
recognisably musical note — 
missing altogether. Two 
options here. Either you do it 
the difficult way, by trial and 


error, or you do as I did and 
consult back issues of QL User 
to find which of the numbers 
from 1 to 255 correlate with 
which notes on a musical 
scale. All in all, SOUND can be 
said to have gone with a 
whimper rather than a bang 
but the QL never pretended to 
be a music centre. 

11.20 p.m. Decide to give 
Archive, Abacus and Easel a 
miss, on the grounds that the 
first two are not suitable for 
novices and the graphics 
package is fully interactive, 
according to the manual, and 
sounds far too strenuous for 
this time of night. This 
decision helps me to realise 
that I may well be nurturing 
the first symptoms of 
keyboard junkism, and make 
second stand of the day, but 
turning off QL. I feel that 
further excursions should be 
undertaken away from public 
gaze; this exercise shows 
every sign of becoming a 
long-term obsession. 

Despite the disasters and 
frustrations, I am reasonably 
confident that I now have a 
rudimentary knowledge of 
the workings of the QL. The 
only trouble is that I also now 
have a drink problem and am 
suffering a crisis in my 
relationship with expert — 
but everything worth 
knowing has its price, they 
say. 
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id Super Monitor .£18.00 Philips BM7502 Green Screen with cable ......£89. 


i} Super Sprite ..£24.00 


Cumana single 3.5 720K dish drive with ..... £189. 
Cumana Dual dish dnived 2... cece cecseeseces £279. 
Above disk drive include Cumana disk interface 
EPS OREN, SOJPRANLOAA. | are. state «sa tichelaiete oie sleieteraiale= £249.00 
# Assembler ...£33.00 Taxan Kaga KP810 ..... ---call for Latest price 
GST Macro Assembler ...£58.00 SUNCEAAATPRANTEON ..afalstarslale sietoinlete clelerets tei s aie £239. 


QL Assembler .......... #7500 Minacke System Modapton with Qceode team S/W .£38. 
Minacke 512K Expandenam ......+...eeeeeeeees E119. 
ALL prices include VAT. Postage on ondenrs above £15.00 is fxee. Add 50p to onder 
under £15.00. Pease add £6.00 fon delivery of printers,monitors and diskdrives. 
dd. : 5 
Overseas orders ane welcomed Postage valid for UK only 
etre i rer rrr rir ivrrirririrrrriirirerieririrrriiiieriertr rity) 
MICRO ANVIKA at (Euro Cale Stone) 224 Tottenham Court Road. London. WIP 9AF. 
Tek. (01) 636 2547 Telex :946240 CWEASY G Attn: 19010170 
come and visit us at our mew shop at 220 Tottenham Count Road London W1.......-.+0-08 


FAST DELIVERY OF QL 
DISC DRIVES 


Cumana 3.5” 1 Mbyte floppy disc drives, internal power supply, 
complete with disc interface, utilities, manual, and optional RAM on 
the interface card. 


INTERFACE SINGLE DUAL 
(G[Ulnn Ela} eer ere Sn ee. eee ee £211 £288 
Delta plus parallel printer interface ............ Ja Leon £328 


Delta plus 128K RAM + printer interface .......... £321 £398 
PCML plus 256K RAM .........cscssceeeseeeeeee . £361 £438 
Cumana plus 256K Expandaram ... £306 
Cumana plus 512K Expandaram .............00008 


TWO MICRODRIVE TOOLKITS 


Read and write microdive sectors from basic and assembly language 
programs. 

QL MDV EXTENSIONS TOOLKIT ..............0:cccccccsccsesseeesssseeees £9.99 
Adds six functions to Basic allowing read/write/verify of microdrive 
sectors, reading of medium names and “fingerprint” from sector 
headers, and includes a repeat format routine. An eight page manual 
explains the functions, details the microdrive format and uses 
example programs supplied on microdrive. 

QL MDV ASSEMBLY LANGUAGE TOOLKIT (Source Code) £29.99 
Over 1000 lines of fully commented assembly language source code 
to a set of routines equivalent to the above, but with some additions. 
An eight page manual explains microdrive format and how to 
implement a copy protection scheme as well as QDOS-like routine 
definitions. 

BOTH THE ABOVE TOOLKITS ON ONE MICRODRIVE ..... £34.99 


COMPARE Also sell a wide range of QL peripherals (monitors/ 
printers/modems/EPROM programmers) and software. Please 
send SAE for full price list. 


PRICES INCLUDE VAT AND DELIVERY 


OVERSEAS CUSTOMERS — WRITE FOR EXPORT TERMS 
57 REPTON DRIVE, HASLINGTON, 


XE W AZ CREWE CW1 1SA 


Telephone: CREWE (0270) 582301 
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BUSINESS SOFTWARE 


SOFTWARE APPLICATIONS 


A brief resumé of some of the business 
packages available for the QL, plus 
some readers’ suggested applications. 


When the QL was launched, there were many who 
hoped it would become the affordable computer for 
small business. ‘Business software accordingly was 
developed to handle everything from payroll to man- 
agement, accounting to project planning. . . 

QL Quill. It is a testament to its power and popular- 
ity that no other word processor has been marketed 
successfully and sold in large numbers for the QL. It is 
an excellent word processor, from the WYSIWYG — 
What You See Is What You Get — screen layout, to the 
word-count and export facilities. Early versions of the 
program were frustratingly slow and we would defi- 
nitely recommend an upgrade to anyone still using 
them; the speed increases are fantastic and it is a relief 
to see many of the bugs eradicated. Despite the fact 
that there is no better word processor for the QL, it is 
a pity that Psion could never release a spelling checker 
— although one is sold independently by Eidersoft — 
or a reasonable Mail-merge facility for it. 

QL Abacus. Again there have been no other spread- 
sheets to equal the Psion original for the QL. It has 
been upgraded considerably since the original 
release, although speed was never one of the prob- 
lems with Abacus. The other major headache — hook- 
ing-up printers — has also been solved with the new 
releases. 

QL Archive. As the QL has attracted a variety of soft- 
ware developers, so Archive, the definitive Psion 
Database for the QL, has proved its position with a 
selection of enhancements developed specifically for 
it. Simplicity was never a strong point with Archive but 
that was sacrificed for the versatility which has proved 
so essential. 

QL Integrated Accounts. The Sagesoft Sinclair- 
sponsored accounts package is probably the most 
powerful package in relation to the versatile features it 
offers. While providing all the facilities of the IBM and 
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Apricot versions, the multi-tasking and window 
facilities of the QL are used to enhance the package. 
The problems of complex manuals for the system have 
been alleviated by providing a tutorial program which 
takes you through the relevant accountancy discip- 
lines, 

QL Entrepreneur. Another Sinclair-sponsored 
package, from Triptych Publishing, designed to build 
the basic skills necessary to start your own business. 
Having gone straight from business school, the mem- 
bers of Triptych are well-suited to develop your know- 
ledge, using comprehensive manuals and special 
tutorial programs. They are enhanced further by pro- 
grams for flow forecasts, year-end balance sheets and 
profit/loss accounts — everything necessary for the 


first steps into business. 
Entrepreneur is one of a series of business planning 


programs from Triptych, which also includes QL Deci- 
sion Maker — which helps examine the risks, costs and 
benefits of a given business proposal in a diagramatic 
way — and QL Project Planner, a modern project plan- 
ning system which helps estimate the time needed for 
a variety of jobs. 

QL Cash Trader. One of the first third-party busi- 
ness applications to be marketed by Sinclair Research 
and aimed squarely at the small business. It is for 
people who want a quick and accurate method of fol- 
lowing cash-based transactions rather than credit 
transactions. It has rather an eccentric history, being 
published by Sinclair Research and licensed from 
Quest International, which in its turn acquired it from 
Accounting Software of Torquay, the authors. There is 
an excellent training tutorial which runs through 14 
working examples before it allows you to use it fully. 

QL Payroll. This program from TR Computer 
Systems claims to be a fully-operational payroll pack- 
age which can run either as a stand-alone or in con- 
junction with a tailored software package. It copes with 
weekly- or monthly-paid employees and can include 
for each employee six deductions over and above tax, 
National Insurance and pension deductions, one of 
which has facilities for loan repayment and one a vari- 
able deduction for each pay period. The original was 
written in SuperBasic to allow easy modification but 
the company then re-wrote the program in BCPL to 
guard against piracy. 
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Typing Tutor. No list of business software would 
be complete without mention of the ubiquitous Typ- 
ing Tutor. There are several for the QL but one of the 
first was from Computer One, which is in a shrink- 
wrapped package with a 14-page manual. The manual 
is small, as the program provides most of the 
documentation internally. There are 11 typing lessons, 
each designed to provide greater facility with the 
keyboard. The only real problem with Typing Tutor is 
the QL keyboard, which does not necessarily lend 
itself to touch-typing as keys tend to auto-repeat far too 
frequently. 

Figure one shows most of the major business soft- 
ware types for the QL but it is worth bearing a few basic 
principles in mind when shopping for each applica- 
tions. 

The only way to choose between similar-sounding 
packages is by having a very clear idea about what it is 
you want the QL to do. That method of software selec- 
tion is known by jargon-lovers as the systems 
approach. All it means is that you build your computer 
hardware and software collection with the idea of 
developing a system to accomplish specific tasks. 


Store And Retrieve 

Four business programs are supplied with each QL but 
they need back-up cartridges, as well as cartridges for 
storing their data. More software cartridges are reach- 
ing the market and there are listings in computer 
magazines, all available to be typed-in and saved on 
Microdrive cartridges. A QL user almost needs a com- 
puter program to keep track of the growing number of 
cartridges, saved, or course, ona Microdrive cartridge, 
and backed-up on another Microdrive cartridge. 

The QL is at the top end of the microcomputer 
range, consequently it is used by serious computer 
users, but you cannot be a serious QL user without 
feeling a little like a history student restricted to using 
A6 size notebooks. 

The best possible, indeed the most urgent applica- 
tion for any QL user is the one I would most like to try 
—to store and retrieve the programs I have gathered 
ona disc system. You can be a QL user without a disc 
system but you cannot be a serious QL user without 
one. 

A. Tyson. 


Theatre Lights 

For designing theatre lighting plans Iam developing 
a program aimed at making it possible to obtain print- 
outs of overall layouts rapidly and complete lists of 
levels for the individual cues. 

Although most modern lighting boards have a form 
of in-built file storage, back-up requirements, frequent 
need for reference and the fact that very few boards 
have interfacing potential, necessitate making avail- 
able frequently updated hard copies. 

The inevitable experimentation in the early stages of 
design can easily involve many drastic changes, the 
effects of which frequently require alterations 
throughout subsequent cues, resulting in large 
amounts of time-consuming and tedious paperwork 
when using conventional methods. 

The problem is particularly acute in the event of 
equipment breakdown which, while a relatively rare 
occurrence, can be catastrophic without means for 
recording an acceptable alternative as rapidly as pos- 
sible, together with a list of changes throughout fol- 
lowing levels to allow for reduced efficiency. 

Mike Vaughan, 
Copenhagen, 


Denmark. 


Analogue-to-Digital 

In the department where I work, our secretary has an 
IBM word processor. She has tried my QL and she is 
very impressed. Everything her machine can perform 
the QL performs easier and faster. There is only in one 
respect the IBM is superior — it has discs. One is for 
loading the program and the other for storing docu- 
ments. 

I use my QL with a Brother EP 44 printer and a Fin- 
lux SM 9510 RGB monitor. The QL was delivered to me 
when I lived in Bath in June, 1984. 

When available, I will buy an A/D converter to use 
the QL as a data collector to measure temperatures to 
optimise the heating system in our house. If the A/D 
converter is connected to the bus, I would like to make 
fast two channel measurements to calculate the cross 
spectrum used for noise intensity measurements. 

Urban Anderson, 
Johanneshov, 
Sweden. 
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Name of Software 


QL Bank Account 

Typing Tutor 
Transact Book Keeping 

Archiver 

Qspell 

Sales Ledger 

Purchase Ledger 

Nominal Ledger 

Stock Control 

Equate 

Cash Trader 

QLScreen Dump 

Stockmarket Manager 

Insurance Manager 

Tasprint QL 

Tascopier QL 

Mailing List 

Stock Control 

QLAppointment Diary 

QSpell 

Payroll 

Integrated Accounts 

Archive Adjustment 

QL Key Definer 

QL Calc 

Multi Tasking 

QL Project Planner 

QL Integrated Accounts 

QLEntrepreneur 

QL Decision Maker 

RefQL7 
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Supplier 


Cenprime Software 
Computer One 
Dialog Software 
Eidersoft 

Eidersoft 

Eidersoft 

Eidersoft 

Eidersoft 

Eidersoft 

Flite Software 
Micro Anvika 
Miracle Systems Ltd 
Portfolio Software 
Portfolio Software 
Tasman Software 
Tasman Software 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Transform Ltd 
Triptych Publishing 
Triptych Publishing 
Triptych Publishing 
Triptych Publishing 
WD Software 


Accounting 

Typing Tutor 
Accounting 
Database Applications 
Spelling Checker 
Accounting 
Accounting 
Accounting 
Accounting 
Equation Processor 
Accounting 

Screen Dump 
Investment Analysis 
Database Analysis 
Typeface 

Screen Dump 
Mailing List 
Accounting 


Spelling Checker 
Accounting 
Accounting 


Quill Utility 
Calculator Utility 
General Utility 
Decision Analysis 
Accounting 
Decision Analysis 
Decision Analysis 


Price 


£19.95 
£14.95 
&34.95 
&18.95 
£19.95 
£49.95 
£49.95 
£49.95 
£49.95 
439.95 
£54.00 
£4.99 

£34.95 
£24.95 
£19.95 
£12.90 
&14.95 
$14.95 
£24.95 
£19.95 
&03.25 
£89.95 


£9.95 
£9.95 
$14.95 
£39.95 
£39.95 
£39.95 
439.95 
&/ 


Telephone 


0203 686162 
0223 862 616 
Epping 77871 
0708 852647 
0708 852647 
0708 852647 
0708 852647 
0708 852047 
0708 852647 


010353 7421255 


01-636 2547 
0272 603871 


0532 438301 
0532 438301 
01-658 6350 
01-658 6350 
01-658 6350 
01-658 6350 
01-658 6350 
01-058 6350 
01-658 6350 
01-658 6350 
01-658 6350 
01-658 6350 


053481392 


To fit the complete rules of Backgam- 
mon on a cassette box insert is an 
achievement in itself, but the com- 
puter game described on the same 
insert should be even better. QL Super 
Backgammon is Digital Precision’s 
answer to those who find chess too 
complex and reversi too simple. 
Complete with Quill file and intro- 
ductory instructions, the game is 
played by two opponents, be it the QL 
against itself, a player against the QL or 


two players against each other. To ex-. 
plain the rules would take too long, but - 
for those of you unfamiliar with the’ 


game you must move your 15 counters 
around the board into your home sec- 
tion and remove them before your 
opponent does the same. In order to 


win you must block the opponents 


moves, take his counters and throw 
high scoring dice. 

As is so often the case with computer 
generated board games, movement of 
pieces and the throwing of dice is 
limited to the keyboard, and with 
backgammon this is usually part of the 
fun (like the handling of cards in a 
game). But you are given the oppor- 


tunity to have a game when you're’ 


alone with the QL. 


As usual the two dice are thrown by . 


the computer, but for those of you who 
want a false realism and know that a 
computer cannot generate truly ran- 
dom numbers, you can throw your 
own dice and input the values. This is 
especially useful if you want to beat the 
computer at the top level, but 
obviously relies on your morals. 
Unfortunately, playing the game 
itself is complicated. The board is set 
up for you, but having chosen your 
opponent, his name, the doubling 
cube, play level, move information and 
whether you throw the dice, you could 
be well into a game on a real board. 
To make matters more confusing, 
the instructions state: “If you play the 
computer, you will be player 2 — 


Green.” Having chosen this option the . 


computer asks for the “Name of player 


1:”, You might type in “Computer”, or ' 
give the QL the name of a famous | 


player — if you know one. However, 
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Jason Ball looks at the latest games for the QL 


the computer then announces “You 
will be player 2”, and proceeds to call 
you “Computer” — or the name you 
selected — throughout the game. 

If you select to see move inform- 
ation, the screen will show the last 
move made. This is useful because the 
QL plays at such speed you rarely see it 
move, let alone see the dice it threw. 

When playing, the values of your 
dice are shown and youare asked from 
which position you will move your 
counter. Having entered the number 
corresponsing to the position, you 
must type in the destination of that 
piece. Moves must be taken individu- 
ally. If you throw a 2 & 3, and wish to 
move a single counter 5 places, each 
move has to be separate, so play is 
rather slow. 

If you imagine a chess board, the 
pieces at the bottom of the screen are 
usually yours, to put the board in 
perspective. Not so with Super 
Backgammon. Digital Precision had 
decided that you should play as though 
sitting on the far side of the board, 
which is most confusing, particularly 
for a player of the real thing. Also, if 
you make a wrong move, there is no 
Opportunity to correct it. 

There seems to be some discre- 
pancy about gambling. When the mes- 
sage ‘Double the stake?’ comes up, you 
are never quite sure if the question is 
directed at you or asked on your 
behalf. If the latter is true, and you 
don’t accept, the other player will not 
be asked if he wants to double. But if 
you were asked, and you don’t accept, 
bang goes your game. The only really 
useful feature in the game is a help 
option for beginners, which will 
suggest the best moves to make. 

In terms of programming achieve- 
ment, QL Super Backgammon is bril- 
liant, and the speed at which it per- 
forms confirms this, However, for the 
player the game is both unfriendly and 
confusing, and the increased ‘speed 
that Digital Precision have strived to 
achieve tends to make the moves con- 
fusing, I really looked forward to play- 
ing the game when I saw its features 
and potential. In reality though, while 


it remains the best — and only — 
backgammon for the QL, it is a little 
disappointing, though at £12.95 it's not 
a bad buy. 


First it was films, now it’s board games 
— Scrabble is the latest release for the 
QL to reflect the increasing use of 
already successful ideas for computer 
games. These, the software manu- 
facturers hope, will be as attractive on 
a monitor as they are on the big-screen 
or kitchen table. 

One such company is Leisure 
Genius, a trade mark of Winchester 
Holdings Ltd. who has secured a deal 
with J. W. Spear & Sons PLC to repro- 
duce their most famous board game — 
Scrabble. 

Computer Scrabble for the QL is a 
beautifully presented package which is 
well thought out and consequently 
easy to use. For those of you unfamiliar 
with the game, each player must con- 
struct words from his rack of seven 
given letters, incorporating at least one 
letter already on the board. The word 
is placed horizontally or vertically on 
the board and scores points according 
to the value of letters used and the 
positions they cover. The program 
caters for up to four racks, each of 
which can be played by a person or the 
QL. 

After a cute introductory picture 
showing a likely golfer next to an 
unlikely 19th hole, the Scrabble board 
is drawn and a series of questions must 
be answered before play begins. These 
cover resuming a saved game, playing 
against the clock, players names and 
skill levels. While the package states 
four skill levels for the QL, there are in 
fact eight. Alternatively, pressing 
Return instead of a number will select 
a human to play. 

The final options allow you to view 
words tried by the QL when playing, to 
see the racks of all players, to turn off 
the sound and to select the time it takes 
for letters to be placed on the board. 
Simply pressing the Return key gives 
logical default values for all question, 
so you can quickly get on with the 
game. 


I found the game surprisingly addic- 
tive — the board game sends me to 
sleep. Players take it turn to create 
words from their rack of letters dis- 
played at the bottom of the screen. This 
is done by typing in the full word, plac- 
ing it on the board with the cursor keys 
in the correct position and pressing ‘D’ 
for down or ‘A’ for across. The QL will 
calculate and display the value of the 
move which you can then accept or 
reject. 

If the computer doubts the validity 
of one of your words it will ask ‘Are you 
sure?’, to which you reply 'Y’ if the 
word exists. If it does not exist, and you 
press ‘N’ you forfeit your turn. Alterna- 
tively you can ask for a hint, change or 
juggle your letters and, if necessary, 
miss your turn. 

There are a several advantages with 
Scrabble on the computer, the most 
obvious being the automatic diction- 
ary check. Again the package is incor- 
rect, the dictionary in fact contains 
over 20,000 words, not 12,000 as 
stated. All the scoring and dealing of 
letters is taken care of, even at the end 
of the game, and players’ scores are 
always visible, eliminating the need for 
paper, pens and calculators. 

There is one problem, which only 
comes to light when you play the 
game. For serious players Scrabble is 
like a game of Bridge or Poker — it 
would be fatal to show other players 
your hand. Unfortunately, with your 
letters stored by the computer the only 
way you can view them is on the screen 
to which other players eyes are glued. 
The manual says that this will not affect 
play, but an option is provided which 
requests each player to press a key 
before his rack is shown. This allows 
for one person using the computer at a 
time, but is not very practical. 

Playing two characters myself 
against the computer, the results were 
most revealing. The scores were as fol- 
lows: 


QL at level 8 — 179 points 
Player 1 (me)— 137 points 
Player 2 (me) — 131 points 
QL at level 1— 105 poinis 
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Despite its minor limitations Scrabble 
on the computer was enormous fun 
and I would recommend it to anyone 
who enjoys the board game. 


Knight Flight? No, it’s not a cross 
between Knight Lore and Fligh 
Simulator, but a fairly original arcade 
game, particularly for the QL. Sitting 
astride your faithful ostrich — or is it a 
pelican? — clad in shining yellow 
armour and brandishing your lance 
menacingly, you must do battle with 
the other Knights of the Kingdom. 

Battle involves flying around the 
screen, crashing into other knights and 
bouncing off the various platforms. To 
go up in the air flap your wings using 
the space bar or fire button. To come 
down stop flapping. The cursor keys or 
joystick are used to move left and right, 
but as usual the fire button on the joy- 
stick is a finger killer after a few 
minutes furious flapping. 
In order to kill a Knight you simply 
have to spear him with your lance, or 
knock him off his red flamingo. You 
nust therefore be above him, even by 
the slightest amount, when you crash 
into one another. If all goes well he 
will disappear leaving his trusty bird to 
flap into the distance, but should he be 
above you, say goodbye to another life. 

Stages play an important part in the 
game — having cleared one wave of 
Knights the scenario changes slightly 
and you are faced with another selec- 
tion from the Round Table. the game is 
surprisingly addictive, — perhaps 
because of it’s originality. It also incor- 
porates some lovely features — as you 
land on the ground or platform the 
birds undercarriage comes down like 
a swan landing on water. When you 
eventually slide to a halt the bird stands 
upright until you take off again. In later 
stages the odd fire breathing dragon 
appears on the set to harrass you, but 
in the few stages I managed to pass no 
seductive maidens appeared! 

Knight Flight is available from Real- 
time Games Software Ltd., Prospect 
House, 32 Sovereign Street, Leeds LS1 
4BT, and costs £14.95. 
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£5 (£6 if overseas, £10 if 


UPGRADES: Send your original cartridge 
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FORTH plus Reversi 


Forth is a structured, intermediate-level Programming language 
with a cult following. Forth is a remarkable language which com- 
bines the speed of machine-code with high-level control con- 
structs and interactive testing facilities. 

Gerry Jackson’‘s SUPERFORTH is a complete, ultra-fast im- 
plementation of the Forth ‘83 standard. In addition to the stan- 
dard commands SUPERFORTH includes a plethora of extra 
features to make the best of the QL: 


* All the QL’s features are supported, including sound windows, graphics, disk 
systems and other peripherals. Input and Output may be re-directed at will. 


*~ Full 32 bit integer arithmetic, allowing lightning-quick calculations to nine digits 
of precision. All floating-point arithmetic is also supported, including 
Logarithmic and Trigonometric functions. 


* Incredible speed — much faster than any other QL Forth. A Sieve of 
Erastothenes (the Byte benchmark) runs in just 4 seconds in SUPERFORTH, 
compared with 3 minutes 30 seconds in QL SuperBASIC (or 3 minutes 10 
seconds in IBM PC BASIC!). 


Multi-tasking (demo supplied) with full job control for SUPERFORTH and 
machine-code programs. SUPERFORTH itself runs as a task, so other Programs 
may run at the same time. 


Buiic in screen-editor for Forth blocks or named files — alternatively you may 
use Quill to edit Forth source. 


The SUPERFORTH package also includes an extremely powerful 
implementation of the classic boardgame REVERSI. This superb 
program demonstrates the speed, flexibility and expressive 
power of SUPERFORTH. REVERSI is written entirely in SUPER- 
FORTH, and the well-written source-code is supplied for you to 
study or adapt. 


REVERSI 1.4 offers nine levels of play, with near-instantaneous 
response on levels 1 and 2. Many options enable you to ex- 
change sides, retract moves, set up positions, ask for hints or 
watch the computer ‘think’. Moves can be entered by co- 
ordinate or simply by ‘pointing’ at the required position. 


The latest version of REVERSI — version 1.4 — is better than ever! It is guaranteed to 
beat Sinclair Reversi every time, when the two are played on similar levels. It beat the 
Spectrum champion, MOI Othello, 10-O ina supervised match — in fact we have yet 
to find any program, for any personal computer, capable of beating REVERS! on equal 
time — or any human capable of beating it at its top skill level. This is hardly surprising 
when you consider that REVERSI 1.4 uses state-of-the-art Artificial Intelligence 
techniques: alpha-beta tree searching with pruning and a ‘killer’ heuristic. 


” Congratulations on an excellent Program", E. Azzo Pardi, Malta. 
“The best Forth program", H. Heuss, Berlin. 
Digital Precision “SUPERFORTH & REVERSI cost £29.95 


REVERSI 1.4 is available separately, with full rules and an in- 
troduction to the strategies of the game, for £12.95. 
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SUPERCHARGE 


Supercharge is a program that translates slow, interpreted SuperBASIC into fast, flexible 68008 machine 
code — totally automatically. You need no specialised knowledge at all. 


Supercharge supports the entire syntax of SuperBASIC. Compiled programs run incredibly fast; some run 
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All Digital Precision Software is available now. 


over 100 times faster than in the original SuperBASIC. Microdrive loading times are accelerated by a factor 
of up to 30. Multitasking is fully supported, and easy to use. 


ALL Supercharged programs multi-task — you can run any 
number of them on one QL, simultaneously (RAM permit- 
ting) 


Supercharge supports full floating point arithmetic, to an 
accuracy of NINE digits (SuperBASIC only displays seven 
decimal places). Arithmetic is breathtakingly fast — integer 
handling is often 100 times faster than in interpreted 
BASIC. 


Supercharge allows the entire syntax of QL SuperBASIC: 
file-handling, multi-dimensional arrays, local variables, pro- 
cedures and functions (with parameters), turtle graphics, 
windows, both display modes, all devices (including disk 
drives, modems etc.), sound, graphics, colour, strings, 
etc., etc. 


Supercharged programs are reliable on all versions of the 
QL. Most bugs and restrictions imposed by the SuperBASIC 
interpreter are corrected or lifted by the compiler. Say 
goodbye to the integer FOR bug, string and integer SELECT 
bugs, the CALL bug, the ‘t Go many parameters’ bug, the 
GOSUB in a loop bug, the RESPR bug, etc., etc. 


Supercharge includes a sophisticated optimiser, which the 
user can direct to produce either especially compact or fast 
68008 machine-code, on a line by line basis. 


* Supercharge is compatible with virtually all QL add-ons, in- 
cluding disk systems, expansion RAM, and even add-on 
commands which do not form a standard part of Super- 
BASIC! ‘Toolkit’ utilities work beautifully, so long as they 
don't try to modify interpreter data-structures (which ob- 
viously aren't there). Very few commands do this, and 
Supercharge generates clear warnings where incom- 
patibilities might exist. 


* Supercharge issues explicit, plain-English reports and warn- 
ings, showing the exact position of mistakes. Many ‘trivial’ 
errors are automatically corrected! 


* Supercharge is fast, device-independent, concise and easy 
to use — it even compiled itself! 


% Supercharged programs may be interactively tested ‘in 
slow motion’ using the compatible SuperBASIC interpreter. 


% Supercharged programs are protected against unauthorised 
modification, as they cannot be LISTed. Compiled code 
loads incredibly fast — for instance, a 75K SuperBASIC 
program loads 25 times faster once compiled. 


% The 105 page Supercharge manual is comprehensive and 
readable, with tutorial and reference sections, examples, 
hints and tips, and a full index and glossary. 


BASIC compiler 


QL SUPERCHARGE is the most sophisticated BASIC compiler 
ever published. It is the result of 18 months work by a dedicated 
team of programmers led by Simon Goodwin, a top software 
designer and journalist. 

The verdict from Supercharge users: 

“Simple to use ... an excellent product which coped completely with the vagiaries of 
my own programming”, E. Cogswell, Havant. 

“Outstanding — the most important piece of QL software so far”, Mike Walsh, 
Birmingham. 

The verdict of Sinclair User (March 1986 issue) “A Sinclair User 
classic” * x ka 

The verdict of QL world incorporating QL user, (March 1986 issue): The arrival of this 
product is a significant event for the QL, | have no hesitation in recommending Super- 
charge. 

“The manual is very informative and easily read... supercharge is great! Better than | 
ever expected”, R Schubel, New Jersey, USA. 

“May | say how pleased | am with Supercharge”, Richard Blake, London. 

“| was impressed by the quality of the implementation and high degree of compatabil- 
ity with SuperBASIC”, T. Gruber, Aachen, W. Germany. 

“Very high quality software... a very informative and useful manual”, Michael Gottlieb, 
Edgware. 

“Very good and fast in use. You seem to deliver hwat you promise, unlike other QL 
suppliers, R. Coughian, Liverpool. 


SUPERCHARGE + ICE £79.95 
SUPERCHARGE + ICE + CHOICE £89.95 


Software is compatible with ALL versions of the QL 
memory expansion and disk interface systems. . 


Digital Precision software is 
available from TBD, Lightning, 
Creative Sparks, 


DEALERS: our discounts are 
generous — phone us now on 


and other 01-527 5493. 


distributors of good software. 


Buyers in Central London can 
visit Micro-Anvika at 
Tottenham Court Road. 


Supercharge and Superforth 
are available on 5% inch 1440 
sector disk at no extra charge. 


PROGRAMMERS: We intend to 
dominate the QL software 
market, and we pay excellent 
royalties for good QL software. 
Send us a disk or cartridge 
now, for a prompt, confidential 
evaluation of work in Progress. 
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£5 off SUPERFORTH, £5 off SUPERSPRITE and £2 off Super Monitor + Disassembler when these programs are ordered at the same time as s 


of the Origi 


Super Back 
rules of Bac 


” Supercharge is a great improvement on SuperBASIC and has given me new faith in 
the QL", T. Hansen, Norway. 


“| was very surprised by the professional quality — it is really excellent”, F. Moya, 
France. 


“Invaluable... | think Supercharge is an excellent product, and the documentation 
puts Sinclair to shame”, Dr K. Williams, Putney. 


"The manual is very good. It inspires confidence and has a sense of humour. Super- 
charge itself is great". H. Gupta, Nerthampton. 


The manual is a model of clarity, readability and accuracy: congratulations! The car on 
the box should be a Rolls Royce”, M. Johnson, London. 


“Much more helpful than any previous manual | have ever read”, Dr W. Fuggle, 
Birmingham. 

"Easy to use — very well written”, J. Hayes, Leeds. 

"Very easy to use — very impressive”, Dr G. Tayler, Harrow. 

"Very impressed — should come as standard with the QL”, A. Pritchard, Surrey. 
"A credit to British enterprise”, Dr Helmut Aigner, Austria. 


” Excellent!” — Colin Opie, McGraw Hill; W.D. Software, Jersey; A Dedman, Ipswich; 
Dr Archer, Wakefield; C. Grogan, Huddersfield; G. Chew. Clwyd; K. Paul, Gerrards 
Cross; A.B. Steen, Eastleigh, Ingenieurburo Neitzel, Detmold, W. Germany... and 
many others. 


The latest version of Supercharge — version 1.17 — is available 
as an upgrade, price £10, to users who wish to get the very 
most from their compiled programs. 


Supercharge costs £59.95; this includes the compiler, code-generator, utility programs, add-on com- 
mands for task control and error-trapping, demonstration software and over 100 A4 pages of documenta- 


tion. 
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If you’ve a program that is worthy of consideration, send it to ‘The Progs’, Sinclair 
QL World, 79-80 Petty France, London SW1. We pay for everything published at the 


usual page rates. 


over them with adjacent pegs. The 
object being to remove all but one of 
the pegs from the board in this fashion. 
Another board game, this time for The program includes a demonstra- 
those who prefer to play alone. The tion and gives an assessment of your 
rules are very simple. Pegs are performance (‘Very Good, Good’ etc) 
removed from the board by jumping at the end of each game. 


Solitare 
B Otridge 


CLS:CSIZE 3,1:PRINT \\"Loading"\"Solitaire":MERGE mdvl1_solitaire 
1B@ REMark OK AOR AOR AOR AOR aK 
118 REMark ******x* SOLITAIRE ***k#*# 
120 REMark ***** By B Otridge ***** 
138 REMark 220 OR FOR OK 
148 
158 
160 
17@ REMark eobOKOR DATA Kido cc ik 
18 REMark Top-level menu data 
19@ DATA “CHOOSE ‘Game’”,4,232,"F1","Help”,236,"F2","Demo",248,"F3",' 
SCewOuit 
20@ REMark In-game menu data 
219 DATA “CHOOSE ’Move'”,1@,192,CHR¢(188), “Move Lett”. 260,CHRS( 159), 
, 208 .CHR$(190), "Move lip*,Z16,CHR$(191), “Move Down 
22M DATA 194, "CTRL" &CHR$(188),"Jump Left”, <' “CTRL” &CHRS( 169), “Jump 
“CTRL” &CHRS(190)," Jump Up”, 218, “CTRL &CHR$'191),° Jump Down 
230 DATA 232,°F1",“Help®.27.° ESC", “Quit 
249 REMark Demonstration game data 
250 DATA 218,192,192, 208, 202, 200,194, 208,208, 200, 
208 1192.28, 16,215,215, 


209,194,194, 192,202, 206 
+218,210, 208, 218,216,208 
4,194, 203,218,282, 208, 192,192,192, 202,202, 200 

16,21@, 202,192,192, z 202, 200.216 
6,216,210, 202,200, 2@8,216,216,216,200,194,216,210 

» 286 

260 REMark End of game comment data 

27@ DATA “Expert '!!",2,"Excellent '!",4,"Good Try”,6,"“Average Attempt” ,8, “Below 

Average” ,1@,"Poor Show!",12,"Are you serious 777" ,.45 

28@ REMark Help screen data 

298 DATA “This 1s @ simulation of SOLITAIRE. The board consists of 45 holes; at 

the start of the game each hole except the centre one contains a peg. The obiec 

t is to finish with the lowest number of pegs left. Pegs may be removed by one p 

eq jumping over another into an empty hole; the *jumped’ peg is then removed.” 

300 DATA "The cursor keys are used to move the pointer or ‘finger’ around the bo 

ard. A jump may be made by pressing the CTRL key with the appropriate cursor key 

; only legal jumps will be accepted. The game may be terminated at any time by p 

ressing ESC. 

319 REMark Board initial set-up date 

32@ DATA ” Nga GBB ius OO 

DO a DBODoPDHOD 

33D : 

340 : 

EY § 

36@ REMark *+**** MAIN PROGRAM *42%%* 

37@ MODE 4:setw 9,512,256,9,0,90,0,0,9:setw 0,168,24H,329,12.1,.4,8.1:setw 9,158.2 

3G,333,17,1,4,.6,9:setw 1,312,249,17,12,2,8,6,1 

38 q$=CHR$(10):set _board 

399 REPeat games 

400 choose game 

419 IF game$="Help":display_help “game” 

42@ IF game$="Demo" OR game$="Play”:do_game 

43@ IF game$="Quit":EXIT games 

440 END REPeat games 

450 ende:STOP 

460 : 

470 

48O : 

490 REMark **x*ek*% SET BOARD #%% 444% 

50@ DEFine PROCedure set board 

51 DIM grid a$(13,13):DIM grid_d$(13,13):RESTORE 32@:FOR n=1 TO 7:READ a$:grid_ 


a$(n)=a$: grid ee ee grid_a¥(14-n)=a$: grid_d$(14-n)=as 

529 no_pegs=44:ptr_e=7:ptr_d=5:pointer$="\ ":old_ptr_a=7:old_ptr_d= 

53@ FOR n=3 To 11 

548 i=(n<€ OR n+8) 

554 FOR m=3+3*(i) TO 11-3%(i1):CURSOR m*#32-74,n*Z4-54: INK 4+2*(grid_a$(n,m)="@"); 
PRINT grid_a$(n,m) 

56@ END FOR n 

578 game$="":CURSOR ptr a*32-88.ptr_d4#24-63:PRINT pointer$:set_menu “game” 

_58@ END DEFine 

590 : 

5OO ; 

610 : 

620 REMark *#4**4%e4e% SET _MENL #4488 ea4 
639 DEFine PROCedure set_menu(menus) 
649 IF menu$="game":RESTORE 192 

650 IF menuS="move": RESTORE 200 

66@ READ a$:CLS# 

#2. aS\\: UNDER#8, READ no 
676 DIM b$(3,no0,9):FO i TO no 
686 READ 1:b$(1.n)=CHR$(1):READ bS(2,n):READ b#(3,m):PRINT#@.TO (6-LEN(b$(Z,n))) 
3b$(Z,n);TO 7;b$(3,n) 

693 END FOR n 

792 END DEFine 

718 : 

720 

730 : 

749 REMark aocKKKAA CHOOSE oka 

75@ DEFine PROCedure choose (choice$} 

76@ REPeat get choice 

77 i=KEYROW(@):IF game$<>"“Demo":i$=INKEY$(-1):ELSE :i=KEYROW(1):IF i=8:i$=CHR$( 
27):ELSE :READ 1:i$=CHR$(1i) 

78@ FOR n=1 TO no: IF i¢=b$(1,n):choice$=b$(3,n):RETurn 


SOLITAIRE” :CSIZE #@,2Z,@:UNDER#2,1: PRINT 


E 250 


799 END REPeat get_choice 

890 END DEFine 

819 : 

820 

830 : 

849 REMark ****** DISPLAY HELP *#*#%* 

859 DEFine PROCedure display_help (level$) 
86@ RESTORE 290:IF level$="move":RESTORE 300 
870 READ a$:prinw at 

880 set_menu level$ 

899 END DEFine 

960 : 

918 

929 : 

930 REMark **40k%%* DO_GAME GOK 


949 DEFine PROCedure do_game 
950 game_end=@:move$="":set_menu “move”:IF game$="Demo": INK#0,6:prin g$&q$&"This 
is a demonstration of SOLITAIRE, press <ESC> key to terminate. “: INK#0,@:RESTOR 


96@ REPeat moves:do_move:IF game_end:EXIT moves 
97@ n=1:RESTORE 27@:REPeat ab:READ a$:READ m:IF no_pegs<m:EXIT ab:ELSE n=m 
98@ CLS#9:CSIZE#@,1,1:prinw “You have finished this game with “&no_pegs&” pegs | 
eft. "&q$&qs&as:CSIZEHO,1,8 
999 set_board 
10@ END DEFine 
1018 : 
1020 
163 
1049 REMark +kkKKHH* DO MOVE toca 
1058 DEFine PROCedure do_move 
1@6@ old_ptr_a=ptr_a:old_ptr_d=prtr_d:no_move=4@ 
1078 REPeat valid_mov 
1088 
1090 e “:display_help “move" 
1169 : “:qame_end=1:RETurn 
1110 ; = Left":IF qrid_a$(ptr_d,ptr_a-1)<> 
id=1: = 
1120 i “Move Right":IF grid_a$(ptr_d,ptr_atl)<> 
lid=1: incr=8 
1138 IF a_moves=" Down": IF grid_a$(ptr_d+1,ptr_a)<>" 
id=1:iner=6 5 
1148 IF a _move$="Move Up": IF grid_a$(ptr_d-1,ptr_a)<- 
=1l:iner=-6 
1159 IF a_move$(1 TO 4)="Jump" AND grid_a$(ptr_d,ptr_a)="@ 
1169 pick=1 
1170 IF a_move’ Jump Left":IF grid _a$(ptr_d,ptr_a-1)="6" AND grid_a$(ptr_ 
d,ptr_a-2)="0":ptr_a=ptr_a-Z:valid=1:incr=-4 
1189 IF a_ Bove? Jump Right": IF grid_a$(ptr_d,ptr_atl)=" o" AND grid_a$(ptr 
_d,ptr_at2)= 3 ir tr_at+2:valid=1:iner=4 
1190 iif Jump Down":IF grid_a$(ptr_d+l.ptr_a)="@" AND grid_a$(ptr_ 
d+2,ptr_a)="0": = tr_d+2:valid=1:incr=4 
1290 IF a_move$="Jump Up":IF grid_a$(ptr_d-1l,ptr_a)="6" AND grid_a$(ptr_d- 
2.ptr_a)="o0":ptr_d=ptr_d-2:valid=1:iner=-4 
1218 END IF 
1228 IF LEN(a_move$)>6:a_move$=a_move$(6 TO) 
1230 IF valid: EXIT valid_move 
1249 END REPeat valid_move 
125@ IF pick: pegupdn old_ptr_a,old_ptr_d,pointer$:no_pegs=no_pegs-1 
1269 IF a_move$="Lert" OR a_move$="Right”:x=ptr_d*24-63:FOR n=old_ptr_a*32- TO 
ptr_a*32-88 STEP incr:CURSOR n-incr,x:PRINT “ ":CURSOR n,x:PRINT pointer$(Z):0V 
ER 1:CURSOR n,x:PRINT pointer$(1):OVER 9 
1279 IF a_move$="Up" OR a_move$="Down":x=ptr_a*32-88:FOR n=old_ptr_d*24—63 TO pt 
r_d*24-63 STEP incr:CURSOR x,n-incr:PRINT “ ":CURSOR x,n:PRINT pointer$(2):OVER 
1:CURSOR x,n:PRINT pointer$(1):OVER @ 
128@ IF pick 
1299 INK 4 
13080 IF a_move$="Left": grid_a$(ptr_d,ptr_a TO ptr_atZ) oo": grid_d$(ptr_a,ptr 
d)="@": qrid_d$(ptr_atl,ptr_d)="0":grid_d$(ptr_atZ,ptr_d o”: CURSOR ptr_a*32-42 
»ptr_d*24-54:PRINT “o” 
1319 IF a_move$="Right”:qrid_a$(ptr_d,ptr_a-zZ TO ptr_a)="000": grid_d$(ptr_a,pt 
r_d)="6": grid d$(ptr_a-1,ptr_d)="0":grid_d$(ptr_a-Z,ptr_d)="0":CURSOR ptr_a*3z-1 
tr_d*24-54:PRINT “o 
IF a_move$="Down":arid_d$(ptr_a.ptr d-2Z TO ptr_d)="000":grid_a$(ptr_d,ptr 
grid_a$(ptr d-l,ptr_a)= :grid_a$(ptr_d-Z,ptr_a :UURSOR ptr_a*3Z-74 
_4*24-76: PRINT 
1330 IF a_move$="WJp":qrid_d$(ptr_a.ptr_d TO ptr_d+Z)="@oo0":grid_a%(ptr_d,ptr_a 
)="O" :qrid_a$(ptr_dt+1,ptr_aj="o": grid_as(ptr_d+Z,ptr_a)="o0": CURSOR ptr_a*32-74.p 
tr_d*Z4-3@:PRINT “o” 
1340 INK 6:pequpdn ptr_a,ptr_d.pointer$ 
350 no_move=1: test_mo grid_a$:IF no_move:test_move grid_d¥ 
1368 END IF 
137@ IF no_move: game_end=1:RETurn 
138@ END DEFine 
1390 : 
1400 : 
1410 : 
142 REMark **%+4444 TEST MOVE a4 4+ 
1436 DEFine PROCedure test_move(ac$) 
1449 LOCal n 
1450 FOR n=3 TO 11:IF (“o@@" INSTR ac$in}) OR ("6¥o' INSTR get(n)):no_move=:RET 
urn 
1469 END DEFine 
1470 : 
1488 
1498 : 
15@@ REMark *+*#*#e* PEGUPDN +44 ta 444 
151@ DEFine PROCedure pegupdn (a,d,pt%) 
152@ m=a*32-86:FOR n=d4+24-6Z TO d¥z4-54 STEP 2:CURSOR m.n-Z:PRINT 
URSOR m.n:PRINT pt$(1):OVER 1:CURSOR m,n:PRINT pt$(Z): OVER @ 
1538 CURSOR mn: PRINT 
1549 IF pt$="\ “:pt$="\O":r$="0":ELSE :pt$="\ “:rs="O" 
155@ m=a* 32-74: mm=m: nn=d*24—54:FOR n=nn-1 TO nn-9 STEP -2:CURSOR m,n-4:PRINT 
:m=m-2.8:CURSOR m,n:PRINT pt$(2):OVER 1:CURSOR m,n:PRINT pt$(1):OVER @:CURSOR mm 
snn: INK 44+2*(r$="6"):PRINT r$: INK 65 
156@ CURSOR m,n:PRINT "\ " 
1570 END DEFine 
158 
1598 
1600 : 
1610 REMark JeKeKOOOOK: SETH oI: 
1620 DEFine PROCedure setw (ch,wi,de.x,y,cs,pa,in,bo): WINDOW #ch,wi,de,x,y:CSIZE 
#ch,cs,9: PAPER#ch pa: CLS#ch: INK#ch,in: BORDER#ch.bo,@,6:END DEFine 


:ptr_a=ptr_a-l:val 
pptr_a=ptr_atl:va 
:ptr_d=ptr_d+l:val 


ptr_d=ptr_d-l:valid 
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1639 : 

1649 : 

1658 : 

1660 REMark OKO PRIN JOO 

167 DEFine PROCedure prin (c$):LOCal st.n 

1680 st=1:FOR n=1 TO LEN(c$):IF c$(n)=" ":IF n>st:PRINT#Q; !c$(st TO n-1);:st=n+l 
1699 IF n>=st:PRINT#O; !c$(st TO n) 

1708 END DEFine 

1710 : 

1726 : 

1730 : 

1748 REMark OKO ~PRINW obo 

1750 DEFine PROCedure prinw (z$):CLS#@:prin z2$&" "&q$&q$:FOR n=1 TO 200:i$=INKEY 
$(0) 

1768 prin "Press any key to continue 
1770 : 

1788 : 

179D : 

1890 REMark KKK ENDE KOK 
1816 DEFine PROCedure ende:setw 9,512,256,9,0,9,9,9,0:setw 1,168,30,172,179,.2.7. 
@.5:PRINT "Fl. ..monitor" .-TV":REPeat g:n=CODE(INKEY$(-1)):IF n>231:EXIT g 
1829 IF n=232:setw 9,512,55,6,206,9,0,6,0:setw 1,256,202,256,0,0,2,6,1:setw 2.25 
6.202.9,0,0,6,0,1:MODE 4:ELSE :setw 9,448,40,32,216,2,0,7,9:setw 2.448, 200,32,16 
»2,1,7,@:setw 1,448,200,32,16,2,2.7,0:MODE 8 

1838 END DEFine 


“> z$=INKEY$(-1):CLS#@:END DEFine 


number and address of the poked 
entries is listed to the screen so 
changes can be made if required. Lines 
containing repetitions of the same 
number can be easily entered by input- 
ting the first item and pressing return 
for each subsequent repetition. The 
part finished or complete file is saved 
to microdrive for later use; it being 
loaded in the usual way. 


Hex Loader 
R Williams 


Those of you who are dounted by the 
prospect of entering Progs listings con- 
taining extensive data statements will 
find this a very useful utility. The pro- 
gram allows you to enter data from the 
keyboard, or a microdrive file and 
pokes it directly into memory. The line 


10@ REMark MACHINE CODE HEX DATA PROGRAM 

11@ REMark RICHARD WILLIAMS 27/11/85 

12@ MODE 4: WINDOW#O, 492.51. 10,265: INK#0,7:CSIZE#O,1,2 
130 WINDOW#2 , 504 , 205,40: PAPER: LS#2 

14Q WINDOW#2 , 504 .14,4,0: PAPER# : INK#2Z, 7: BORDER#2,1,7:CLS#2 

15 WINDOW#2 ,500,10.6,2: BORDER#Z.0,2 

16% WINDOW 488,182,12,18:BORDER 1,8 

17@ WINDOW 484,180,14,19 ‘ 

18@ OPEN#5 ,scr_130x2@al2x236: INK#5,5:PAPER#5.2:CLS 

198 CSIZE#2,1,@:PRINT#2, TO 14; ’Machine Code Hex Data Program’ 

298 MAIN 

210 REMark eC OOK GK k 

22@ DEFine PROCedure MAIN 

23@ CLEAR: Poking=@: 1in=100@:Max_line=@:FOPEN=@: A=@: num=@:DI @:AP=1 

249 CLS: CLS#@:PRINT#@,"POKE DATA: ":PRINT#@," ’P'’oke; Poke_’W'; Poke_’L’ 
NTER 

250 IF AN$ INSTR ’PpWwLl’=0: GO 300 

260 INPUT#O,* Enter Respr: ‘ir base=RESPR( res): A=base 

278 
280 
290 
300 CLS#2:AT#O.1,0: PRINT#Q, “'I*nput Existing Data File or ’S’tart New Data Fi 
le?" :BEEPX fi 

314 LET AN$=INKEY$(-1) 

32@ IF ANS INSTR 'IiSs'=0@:G0 TO 310 

330 IF AN$=="I’:DIR mdvl_ : EXISTING: OPEN_IT:STORE: ELSE :OPEN_IT 

349 IF FOPEN 

358 IF Max line>@ 

36D CLS 

37D IF Max_line?16 

38D PRINT x$(Max line-16 TO Max_line-1) 

398 ELSE 

490 PRINT x$( 
410 END IF 
420 PRINT x$(Max_line);’ 
430 END IF 

44Q CLS#2:PRINT#2,’ DATA ENTRY’: BEEPT 

458 CLS#0:AT#@,1,@:INPUT#@, '’NEW DATA: *\’Start Line Number (ENTER if no new da 
ta): *;LIN$:BEEPX: IF LIN$=’’:GO TO 47@:ELSE :1lin=LIN$ 

46D A1=A:WHOLE=1: DIMENSIONS: INPUT_IT 

470 CLS#2:PRINT#Z,’ Closing Data File: *:mame$:CLOSE#3:FOPEN=0 

480 CLS#0: AT#9,1,0:PRINT#@,"’B’ ackup Data File?”:ENTER 

490 IF AN$==’b’ 

52D CLS#0: AT#@, 1,0: FLASH#9,1:PRINT#4,’Put Backup in MDVZ2 — Any key to go on.. 
.’ : FLASH#@ ,@: PAUSE 

516 CLS#2:PRINT#2.’ Copying Data File from MDV1 to MDV2’:DELETE ‘mdv2_’ &name$ 
&’ _medf’:COPY ’MDV1_’ &name$&’_mcdf’ TO ’MDV2_’ &name$&’ _mcdf’ 

526 END IF 
|. 539 END IF 

54 IF Poking 

558 CLS#0: AT#0,1,@:PRINT#S," 
56D IF AN$==’s’ 

570 CLS:DIR mdv1_ 

58m CLS#0: AT#@,1,@: INPUT#@,"Name of EXEC File (Mdv1_*_exec): 
59D INPUI#0,’Enter Data Space: ’;ds 

62D UPPER name$:CLS#2:PRINT#2,’ SEXEC MDV1_’;name$;’_exec’;’,’;base;’,’;res;’ 
ids 

619 DELETE *mdv1_’&name$&’_exec’:SEXEC ’mdvl_’ &name$&’_exec’ .base.res.ds 

620 CLS#0: AT#O, 1,0: PRINT#®,"'B’ackup SEXEC File?”: ENTER 

639 IF AN: b* 

648 CLS# T#O. 1,0: FLASH#@,1:PRINT#@,’Put Backup in MDVZ — Any key to go on> 
* : FLASH#@ ,@: PAUSE 

650 CLS#Z:PRINT#Z," Backing Up Sexec File”:DELETE *mdvé _' &naym$x" exec’ :SEXE 
C ’mdv2_’ &naym$&’ _exec’.res,A,ds 

669 END IF 

670 END IF 

682 END IF 

698 CLS#0:AT#0,1,0:PRINT#O, 
7@@ IF AN$==’F’ 

719 MAIN 

72@ ELSE 

730 CLS#0: AT#0,1,0:PRINT#@,"Data List can be LOADED/MERGED tor insertion into 
a Program,"\" or this program can be used to POKE and/or alter bata List :CSIZE 
#5.8,8 

749 STOP 

75@ END IF 

76@ END DEFine MAIN 

77 REMark JARROD a baba 

780 DEFine PROCedure EXISTING 
79@ first=1:first$='':LIN$=’? 
802 ENTER NAME 

819 AT#0.1,0: INPUT#@,’Existing File Name (Mdvl_+ mcdf): 
820 IF naym$=’?’:CLS:DIR mdv1_:GO TO 810 

ee :ELSE :OPEN_IN#4, “mdv1_‘&naymt&’ 


TO Max_line-1) 


< Last Existing Line’ 


’S’EXEC Code?" : ENTER 


"j names 


“'F'urther Data Entry?" :ENTER 


:LAST$="*:AL=A 


“;naym$: NPPER nayvmé 


medt * 
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850 REPeat LOOK 

860 INPUT#4 ,d$: IF EOF(#4):EXIT LOOK 

878 IF d$='’:NEXT LOOK 

BBD IF LEN(d$)>MAX_LEN:MAX_LEN=LEN( ds) 

890 Max_line=Max_line+1 

909 END REPeat LOOK 

919 CLOSE#4 

920 DIM x$(Max_line ,MAX_LEN+1@) 

930 OPEN_IN#4,’mdvl_’&naym$&’_mcdf’ : CLS: CLS#9: PRINT#2, 
ym$;’_mcedf’;:IF Poking: PRINT#2, TO 49; 'POKED AT:’ 

94@ FOR LOOK=1 TO Max_line 

950 IF EOF (#4):Max line=LOOK:EXIT LOOK 

966 INPUT#4 ,d$:IF LEN(d$)<1:LOOK=LOOK-1:NEXT LOOK 
978 x$(LOOK)=d$:PRINT d$;:IF Poking:PRINT TO 65,Al; 
98 Tf first 

990 FOR Z=1 TO LEN(d$) 


' Listing from Mdvi_'ina 


1886 IF d$(Z)=’ ’:EXIT Z 

1616 first$=first$&d$(Z) 

1828 END FOR Z 

193 first=0 

1049 END IF 

1956 FOR Z=1 TO LEN(d$) 

1666 IF d$(Z)=’ ’:EXIT Z 

1876 LINS=LINS&d$ (Z) 

198 END FOR Z 

1096 IF Poking: POKE_IT:A1$=A1-AP:PRINT ’-’;A1$(5 TO 6):ELSE :PRINT 
1106 END FOR LOOK 

1110 CLOSE#4:A=Al 

1126 CLS#0:AT#@,1,@:PRINT#@,"’C'heck/Alter Existing Lines?":ENTER 
1130 IF ANS==’c’:CHANGE IT 


114 END DEFine EXISTING 

115@ REMark *k#ht RRR REE EE ee 

1160 DEFine PROCedure CHECK IT 

1176 FOR Z=1 TO LEN( TEMES) 

1188 EE “TEMP: INSTR ‘O123450789AaEe-'=0; PRINT#@,’-Error 
1190 END FOR 


';:BEEPU:GU TO 54d 


1206 END DEFine CHECK IT 
1Z1Q REMark ++¥+ AHH HE HHO ew Erde tO EE 
122@ DEFine PROVedure PUKE _IT 


1230 FOR Z=1 Tw LEN. ds 


123450789" : NUMBERS =NUMBERS &d$ (Z ) : NUMBER=NUMBERS 


IP ds(Z 2 2=LEN( AS) 
IF MINI IBER=-NUMBER : MINUS=6 
IF AP OKE Al, NUMBER 


TF AP. W Al. NUMBER 

IF AP=4:POKE L Al,NUMBER 

A1=A1+AP: np=Z+ 1: NUMBER=0: NUMBERS='* 

1378 END IF 

138@ END FOR Z 

139@ END DEFine POKE IT 

1480 REMark AAO OOO ORO TOOK Ka RE 
141@ DEFine PR dure ANGE 1T 


142@ DIMENSIONS: prem=firsts 

1430 REPeat CHECKING 7 

1446 CLS#@: AT#0,1,0:PRINT#O, heck line by line + checksum?" :ENTER 
1458 IF ANS=='c’ 

1460 CLS#0; AT#@,1,@:PRINT#O,""E’xit Listing; ‘?’ to View Next Laine":CLS 
1478 FOR LOOK=1 TO Max line 

1488 d$=x$(LOOK):SPLIT_IT 

1496 PRINT x$(LOOK);’ = ’; TOTAL: ANS=INKEY$(-1):IF ANS E’: EXIT LOOK 
158 END FOR LOOK 

1510 END IF 

1526 CLS#0:AT#@.1,.0:INPUT#®,’Enter Line to be Changed (or ENTER to Exit): Lea 
cs 

1538 IF KEYROW(1) AND nc$=’’:IF KEYROW(1)=1:RETurn :ELSE :GO TO 1520 
1549 FOR Z=1 TO LEN(ncs) 

1556 IF ne$(Z) INSTR ’@123456789’=6:G0 TO 1520 

156 END FOR Z 

1576 = nce=nc$: lin=nc: LIN$=lin:CLS 

1589 ne=(nce-prem)/19:PRINT x$(nc+1) 

1598 IF Poking: Al=(base+(nce*(num*AP ) ) ) 

160 WHOLE=0:INPUT_IT 

1618 = x$(nc+1)=DATAL$ 

1620 IF Poking: d$=x$(nc):POKE IT 

1636 CLS#0: AT#Q,1,@:PRINT#O, “‘C’ontinue Alteraticans : ENTER: IF AN$=='c’:NEXT 


CHECKING: ELSE : EXIT. CHECKING 

164@ END REPeat CHECKING 

1650 END DEFine CHANGE IT 

166@ REMark #4 ARETE ROE EOE ee Hee 
157@ DEFine PROCedure BEEPT 

168@ BEEP 5600,5:PAUSE 5:BEE! 500.14 
169@ END DEFine BEEPT 

17@@ REMark %%3% 
171@ DEFine PR¢ 
1720 BEEP 4002, 200 
173@ END DEFine BEEPU 
174@ REMark %% 
1758 DEFine PROCedure BEEFW 
1766 BEEP 3@00.1,255.200.4,2 
1776 END DEFine BEEPW 

1780 REMark %%%%: Fi 
179@ DEFine PROCedure BEEP 
1802 BEEP 300,1 

1816 END DEFine BEEPX 
1B20 REMarke FHARAKAALRH ELA SH AHH OT RAED D TE ht tet 
183@ DEFine PROCedure DIMENSIONS 


1840 IF NOT DIMS 

1850 CLS#@: AT#O, 1,0: PRINT#W. “DIMENSIONS OF LATA £ 

1868 INPUT#4, ‘Number of Data Items per Line 

1870 INPUT#®,’Number per Checksum (ENTER tur numf:btebe LP rnd = 
**:num=numi:ELSE :num=num$ 

1866 DIMS=1 

1890 END DEFine DIMENSIONS 

1900 REMark (Ra OOO Ra Hore tar re 

1910 DEFine PROCedure INPUT [IT 

192@ A2=Al 

1930 PRINT#2, DATA ENTRY: '; :CSIZE#2Z,2,0:PRINT#2. C’A*borr line; “E’s1t bata 
List; ENTER to Repeat)";:IF Poking: PRINT#2Z,TO 65; 'POKED AT 

1949 REPeat ENTRYLOOP 

1958 REPeat typein 

1969 sum1=6:DIM di$(num, 18) 

1978 CLS#0:AT#0,1,0:PRINT#@,’ENTER DATA for Line ‘j1lini~ 

1986 FOR fsum=1 TO num STEP numl 

1996 IF numl*num:PRINT#@,’ ’;fsum;’)'; 

2006 FOR lyn=@ TO numl-1 

26018 INK#@, 5: INPUT#@,d.$(fsum+lyn); : TEMP$=dis(fsum+lyn): INK#O,7 

2620 IF TEMP$=’’: INK#@,5: di$(fsum+lyn)=atemp$: TEMP$=atemp$: PRINT#Y, atemps; : 
ELSE :atemp$=TEMP$:END IF :INK#@.7 

2030 CHECK _IT 

2046 IF TEMP$==’6'; BEEPT:numl=lyn:EXIT typein 

205 IF TEMP$==’ a" ; BEEPU:CLS#@: AT#0,1.@:PRINT#@,"Line Aborted! Please Enter 
New Line.":PAUSE 48:NEXT typein 

2069 IF lynsnuml—1: INK#6,5:PRINT#@,','; : INK#2,7: BEEPX 

2070 di=TEMPS$: suml=sumi+di 

2080 END FOR lyn 

2699 END FOR fsum 

2180 BEEPW:PRINT#@\\’ Total=’isumli’ (ENTER if Correct; SPACE if not)’:ANS=I 
NKEY$(-1) 

Z110 IF AN#==" 

2120 CLS#Q: PRINT#@,’Checksum Error! Please re-enter. °:BEEPUI:PAUSE 52 

2130 ELSE 

2148 EXIT typein 


2158 END IF 
2160 END REPeat typein 


51 


FOR lyn=0 T 
DATALS: aTinee: 
FOR ate 1 oe 


(num=1) STEP 10 
pare 


ate 
:POKE Al,poke word: A1=A1+AP 
ae DATALS Sia PATAUS SDATALS HEN 3 (DATA 'AL+ Ly! aye «ELSE DATALS=DATAL$&dis(D 


yn 
END FO 2 DATAL 


ETATetS TU 6):ELSE : PRINT 


PRINT DATALS : ae ne piace TO odiAZ 
BEEPT » DATALS 


iNS=lin: IF FOPEN: paints 
A=Al 


ata File Name (mdvl_¥*_mcdt): ’:name 


2360 
IPE! #3, ’mdvi_’ &name$&’ _mcdf’ 


or ENTER to Go On...’:BEEPT 


est: 1 TO EEN OTRS) 
F>96 THER Stns (TEST )= CHRS(F-32) 
ST 
3860 END DEFine UPPER 
REMark 422K OR RAR 
EF ine _PROCe dure ENTER_NAME 
ReB., 


or Dir “\’Type ENTER to go on 


3eao DEFin See dure SPLIT_IT 
265 TOTAI 
2658 FOR = { TO LEN( GS) 
670 IF d#(Z TO s* ee “DATA’:NEXT Z 


igs? INOS 
2738 IF as(2)_ “Inet "aiz34s67@9" : NUMBER$=NUMBERS &d$ ( Z ) : NUMBER=NUMBERS 
2749 IF d$(Z)= LEN(d$ 
2750 IF MINUS: NGMBER= -NUMBE R 

D pia ora NUMBER : NUMBER=@: NUMBER¢=’ ’ :MINUZ=2 


as DEFine PROCedure SAV 
eee LOCal FLNS 
CLS#: pers see SAVES BRognaM 70 ake & 2": INPUT#@,’FILE NAME: °:FLN® 
E550 INPUT#O ENTER aurst): ';savfrom#:IF savfrom$='’: 
=1: from 
To (ENTER for la *;savto$:IF savtos 


287 @ CLS#6:PRINT#@. *SAVING Mpv1 avfr TO’ !savto 
*&FLNS : SAVE novi TRFLNS seve rom TO sayto 

ts wero real 'savtc 
vfremn TI savto 
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may nnun non: + 
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il 
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Hungry Harry 
J M Dower 


This is a simple, yet interesting 


few lines utilised and the effective 
results, 

Don't expect a fully flung machine 
code spectacular, but it’s worth typing 
in. Type DEFCHAR to set up the 


implementation of the familiar ‘chase 
and munch’ games found on all good 
micros. We've included it because of graphics prior to running the program. 


199 REMark 34HHHHHEHHHHHAHHE 
118 REMark # HUNGRY HARRY # 
128 REMark #PROGRAMMED FOR# 
138 REMark # THE SINCLAIR : 
149 REMark # @L 

158 REMark # BY J.M. DOWER H 
ise REMark JHHHHIHHHHHHHHHE 


ies TITLE_PAGE 
198 DEFine PROCedure TITLE_PAGE 
298 PAPER 8:CLS: la #8,2:CLS HS 
ze alee ats shee 
29 AT 15,2: = PRINT *USE CURSOR KEYS TO CONTROL HARRY” 
ae 


258 key=KEYROW(1):IF key=1 THEN init: ELeE 60 TO 258 
268 END DEFine TITLE_PAGE 

278 DEFine PROCedure init 

268 PAPER #8,8:CLS #8:PAPER 8:CLS: SHEET=2:HIGH=2999 
298 score=8: lives=5:count=9: BOMBS=5 

388 SCREEN_INIT 


e@ update 
338 AT 9,18: INK 2: PRINT FILLS("@*, lives) &" ° 
349 AT 6,18: INK 2:PRINT score 
338 AT 18, 18: INK 2:PRINT BOMBS 
368 END DEFine update 


398 REPeat main 

499 FOR loop=i TO 2 
416 xx=xiyyty 

428 key=KEYROW(1) 


nye ») 
43@ IF ease * THEN BEEP 268,8:AT y-1,x-1:PRINT ” "iscore=scoret5S: 
Sula ne 
d= =col aie IF key THEN ec Actas 
468 IF ices “re Then BEEP ep 18B:AT y-1, me PRINT® 
sscore=scoret59:up e:scrsly oa tIF key THEN. moveyou 
478 IF c@="+" THEN BEEP 308, B:AT y-1,x-1:PRINT® °:score=score+Ss: 
update:scrSly,x )=" °:IF key Ne moveyou 
488 IF c®="*" THEN AT y- ae -1:INK 2:PRINT °*" 
INK 6:PRINT*°&": OVER 
498 x=xxiy=yy 
568 INK 4:AT y-1 


sOVER 1:AT y-1i,x-1: 


»x-1SPRINT "@° 
319 AT MONb-1,MONA-1:PRINT ° ° 
528 mons termovement 
338 IF scr®(HONb, MONA) =" THEN monsterdie 
548 IF count=339 AND SHEET=2 THEN CLEARSHEET:SCREEN_INIT:GO TO 378 
538 ne count eoes AND SHEET=3 THEN CLEARSHEET: SCREEN_INIT:GO TO 3798 
348 r$(MONb,MONA)="." THEN count=count¢1 
sey AT MOND - i, 2HONA- 1: PRINT°%S* 


of 
658 INK n:AT y-1,x-1:PRINT® 

669 NEXT n 

678 Nae 

688 AT y-1 a1: PRINT* . 

699 scr ite 

788 AT MONb-1,MONA-1:PRINT * 

7ig IF liv eso THEN GO Ee 378 

728 update: GAME_OVE! 

738 DEFine PROCedure monstermovement 

748 IF MONA<x AND scr#(MONb,MONA+i)<>"#" 
758 IF MONA>x AND scr®(MONb,MONA-1)<>°%" 
768 IF MONb<y AND scr#(MONb+1,MONA) <>"#" 
778 IF MOND>y AND scr#(MOND-1, MONA) <>"#* 
789 END DEFine mons aterenvewent 

798 DEFine ae re moveyou 

88 AT y-1, PRINT : 

619 IF veynie on key=898 THEN mover ight: IF BOMBS>S AND key=88 THEN 


THEN MONA=MONA41:RETurn 
THEN MONA=MONA-1:RETurn 
THEN MONbD=MONbD+1:RETurn 
THEN MONb=MONb-1;RETurn 


dropbomb 

829 IF key=2 OR key=66 THEN moveleft:IF key=66 AND BOMBS)S THEN 
dropbomb 

639 IF key= ‘3 OR key=68 THEN moveu p:IF key=68 AND BOMBS)9 THEN 
dropbom 


649 IF ee OR key=192 THEN movedown:IF key=192 AND BOMBS>S 
THEN dropbomb 
658 END DEFine moveyo' 
869 DEFine PROCedure mover ight 
878 IF x=36 THEN GO TO 99! 
xx=x+ 
DEFine moveri gh 
218 peru ee e S eiett 
a eerser - y,x-1) 
"#° THEN xx=x- 
ine movelef 
ee Serine Uaancedina ee 
968 oe cae Sly-1,x) 
cS<¢>"#" THEN yyty-1 
tees se DEFine poveu 
998 meri rege e movedown 
1999 cB=scrSly+i, 


1919 IF cB<>"#* wren yytytt 
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1928 END DEFine movedown 
1838 DEFine PROCedure dropbomb 
1848 IF scr®(y,x)="." THEN count=count+l 
19358 scrS(y,x)=°*":AT yetexs hs INS 2:PRINT "** 
y-1,x-1:PRINT "kk": OVER 8: BOMBS=BOMBS-1 
1868 END DEFine dropbomb 
1878 
isss DEFine PROCedure SCREEN_INIT 
1999 sheets 
1188 AT 8,12:PRINT *SCORE® 
1119 AT 9,12:PRINT "LIVES" 
1128 AT 18,12:PRINT "BOMBS® 
1138 END DEFine SCREEN_INIT 
1148 DEFine PROCedure sheets 
11358 LOCal x,y 
1168 DIM scr$(28,37) 
IF SHEET=1 THEN RESTORE 1349 
IF SHEET=2 THEN RESTORE 1559 
IF SHEET#=3 THEN RESTORE 1769 


sOVER 1: INK 6: AT 


READ scr$(y) 
1228 NEXT y 
1238 FOR y=1 TO 28 


1249 FOR x#i TO 37 
cS=scrs(y,x) 
IF c®="#" THEN INK 6:AT y-i,x-1:PRINT °#°:NEXT x:NEXT y 
IF ce=".° 
IF c@="(*° THEN INK 4:OVER 1:AT y-1,x-1:PRINT "[°SAT y-i,x-1: INK 


THEN INK 1:AT y-1,x-i1: PRINT °.°:NEXT x:NEXT y 
2:PRINT"J°: OVER 8:NEXT x:NEXT y 

IF c@="+* THEN INK 2:OVER 1:AT y-1,x-1:PRINT "*#°: AT y-1,x-1: INK 
4:PRINT "-":OVER 8: NEXT x:NEXT y 
IF c@=° ° THEN NEXT x:NEXT y 


1338 END DEFine sheets 
1348 DATA ° 

1358 DATA ° 
1368 DATA 
1378 DATA 
1388 DATA * 
1398 DATA 
14689 DATA ° 


+ $$ + + O44 444 4 4 | 
e+e + CCE 6 5¢ + + 4444 
ttt 4446 + 46 ¢ 44 S04 ++ 

+ * £84? 4 + +444 + + ++ 


1439 DATA 
1449 DATA 
1458 DATA 
1468 DATA * 


sence eee 
ee ee ee 


* 
+ 


1478 DATA ° 
1488 DATA °# 


e 
me ee oe 
. 


1558 DATA ” 
1568 DATA * 
1578 DATA * 
1588 DATA * 
1598 DATA * 
1698 DATA * 
1618 DATA * 
1629 DATA °# 
1638 DATA 
1648 DATA " 
1658 DATA * 
1669 DATA * 
1678 DATA ° 
1688 DATA 
1698 DATA ° 
1799 DATA * 
1718 DATA * 
1728 DATA "Reeser secsccnencessacccsesesscsssses 
1738 DATA PHACCCCCOCCCCCECCLECCECLOCCCEELCCECE CAR 
1749 DATA “2HHHBHHHHYHHHHHHHBHHHHHHHHHHHHHEEHEHEHHE 
17358 : 

1768 DATA " 
1778 DATA “CE 
1788 DATA 
1798 DATA "# 
1688 DATA ” 
1818 DATA 
1828 DATA "% 
1839 DATA 
1849 DATA 
18598 DATA ° 
1868 DATA * 
1878 DATA 
1889 DATA ” 
1898 DATA * 
1998 DATA 
1919 DATA ° 
1928 DATA ae 


seen eee cesses ne essen sesecesseease 


eee cece eeesesseses 
ee eee oo RHE. we cease 


eee cee so REREERETI HE. ww ec eee 
weer es enesesesese 


eee eee e secre eam ecesesssseserecace 


eeececessceet Reeve esescece 


ee See ers Se 


ee ee er 


il 
l 


2k Hoot 
3. HHH. sit 


1938 DATA 
1948 DATA "# # 

1958 DATA “GHHHHBHHHHHHHHHE 

1968 DEFine PROCedure CLEARSHEET 
1978 BEEP @,288,2222,111,1,1 
1988 PAUSE 58 

1998 RECOL 7,1, Be 3s 4,8,6,2 

2998 FOR n=1 10 

2818 SCROLL -19 

2829 NEXT n 

2939 BEEP 

2848 SHEET=SHEET+1: IF SHEET=4 THEN SHEET=2 
2845 BOMBS=5:count=8 

29358 END DEFine CLEARSHEET 

2868 DEFine PROCedure defchar 
2878 set=167722 

2888 old=PEEK_L (set) 

2898 news=RESPR (875) 

2198 FOR n=8 TO 875 STEP 4 

2118 POKE_L news+n,PEEK_L (old+n) 
2128 END FOR n 


21398 POKE_L set,news 
2148 RESTORE 2249 
2138 numberofchars#12 
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il 2 ; 

i a 

it Meniamerrueersometereerases 
‘ll 


2168 FOR char=1 TO numberofchars 

2178 READ c$:c=CODE (cs) 

2168 charpoke=news+ 19+ (c-32) #9 

21998 FOR dat=1 TO 9 

2289 READ d:POKE charpoke+dat,d 

2218 END FOR dat 

2228 END FOR char 

2239 END DEFine 

2248 DATA °#",124,124,124,124, 124,124,124, 124,124 
22358 DATA "@°,68,56,84, 124,84, 198,124,489, 198 
2268 DATA °%°,56,84, 198,124, 188,84,56, 48,198 
2278 DATA °(",4,8,16,16,48,36,32,9,9 

2288 DATA °1°,9,9,9,9,8,8,12,198,96 
*,8,9,9,124,124,124,56,56,16 
»12,184,16,8,32,8,16,8,8 
*,68,56,84,124, 198,84, 124,498,198 
18,8,56,56,56,56, 56, 56,56 
+24,16,9,36,8,8,9,56,9 
*,9,9,9,9,48,48,9,9,8 

©, 48, 68,184, 16,44, 199,68,8 


2298 DATA " 
2388 DATA * 
2316 DATA ° 
2328 DATA * 
2338 DATA ° 
2348 DATA * 
2358 DATA * 


Pe ee ee ee) 
seeeesee 


’ 
2368 DEFine PROCedure GAME_OVER 


2378 BEEP 8,343,988,64,9,1 

2368 RECOL 4,1,2,3,6,5,7,8 

2398 FOR n=1 TO 29 

2488 SCROLL 18 

2418 NEXT n 

2428 BEEP 

2438 BEEP 9,364,1999,28,2,2 

2448 FOR n=99 TO 1 STEP -1.5 

2458 BORDER n,n 

2466 NEXT n 

2478 BORDER 8,9 

2489 IF score>HIGH THEN HIGH=score 

2498 INK #8,6:AT #8,8,1;PRINT #8,° GAME OVER ” 

2588 AT #8,1,2:PRINT #8," YOUR SCORE WAS °|score 

2518 AT #8,2,3:PRINT #8," HIGH SCORE IS *}HIGH 

2528 AT #8,3,4:PRINT 4S," PRESS ENTER TO PLAY AGAIN * 

2338 BEEP 

2548 key=KEYROW(1): IF key<>1 THEN GO TO 2548:ELSE RECOL 8,8,8,8,8, 
8,9,9:RECOL #9 ,8,8,8,9,8,8,8,8:init 

25358 END DEFine GAME_OVER 

2568 DEFine PROCedure monsterdie 

25378 FOR n=1 TO 7 

23588 INK n:AT MONbD-1,MONA-1:PRINT "\°: BEEP 8,nen nn 

2598 NEXT n 

2689 INK 8:AT MONb-1,MONA-1:PRINT * * 

2619 BEEP 

2628 scr$(MONb,MONA)=" ° 

2638 MONb=14:MONA=17 

2648 score=score+i98 

2658 update 

2668 END DEFine monsterdie 


ovemrconeaay 
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2 x 
itt 
s diegis 


Space Indenter 

B AW Harun 
attractive and readable. 

but 


Not another ‘Space Invaders’, 
another file listing utility similar to last 
month's ListO. We've included it to 


100 lines or less, we'd like to see it. 


7A a a 


show two different solutions to the 
problem of making listings look more 


If any reader can come up with 
something which does the same task in 
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REMark #EERSEREEREEESSEERETERER SERED 
REMark ### THE SPACE INDENTER! #88 
REMark ### (c) B.A.W. HARUN 19866 #88 
REMark #88 VERSION 2.88 eat 
REMark S#FEFSESERETSEREERRERERR EEOC EE 
: 
REPeat main_control 
initialise 
REPeat indenter 
inquire old_fname$,new_fname$,trace_on 
process old_fname$,new_fname$,trace_on 
IF NOT (another_file) THEN EXIT indenter 
reset old_fname$,new_fnanes 
END REPeat indenter 
IF NOT (another_cartridge) THEN EXIT main_control 
END REPeat main_control 
CLS #8 : STOP 
H 
REMark INITIALISE 
REMark BET DIR_TMP, RESET VARS 
REMark GLOBAL ¢ 
REMark files = DIR ARRAY 
REMark nua = ARRAY SUBSCRIPT - 
REMark new _file$= NEW FILES <= 
REMark new num © NEW FILE SUBS 
REMark medium$ = MEDIUM NAME 
REMark level% = OF CONSTRUCT 
REMark statusZ = OF CONSTRUCT 
REMark trace_on = VIEWING OF FILE - 
REMark -- usedZ, left%, total% a 
DEFine PROCedure initialise 
LOCal memory$,piz,p2% 
DIM file$(26,38): DIM new_file$(26,38) 
nua = 1: new_num = 1 
levelZ = 8 : status% = @ : trace_on = 8 
MODE 4 : WINDOW 8@,512,256,8,8 
PAPER @6,@: INK 80,7: BORDER 88,5,2: CLS @@ 
CSIZE #8,3,1: AT #0,1,3: PRINT #8, "T HE" 
CSIZE 96,3,1: AT #@,3,7: PRINT @@, "S PAC E* 
CSIZE @8,3,1 sAT @8,5,11: PRINT #8, "I NDENTER !"\\\ 
INK #8,4: CSIZE #8,1,8 
PRINT 88,70 18;"Please place the cartridge containing"\\ 
PRINT @8,70 1@;"your Superbasic files in Microdrive 2,"\\ 
PRINT €@8,T0 18;"and then press any key to proceed!"\\\ 
INK #8,2: CSIZE @8,2,@: PRINT €8,TO 6; 
"Copyright B.A.W Harun 1986." SS 
PAUSE : BEEP @,58,158,1088,7,5,3,3 
CURSOR 98,@,128 : CLS 98,2 
INK @8,4: STRIP 68,2 
AT @8,28,7: PRINT $8)" Accessing Microdrive 2... * 
INK @8,8: STRIP @8,7 
DELETE adv2_dir_tap 
OPEN_NEW @3, adv2_dir_tap 
DIR #3, mdv2_ 
CLOSE @3 
OPEN_IN @3, mdv2_dir_tap 
INPUT @3, mediue$, nemory$ 
REPeat read_dir 
IF EDF(@®3) OR (num>26) THEN EXIT read_dir 
INPUT @3, file$(num) 
IF (file$(num)="dir_tep") THEN nus=nue-1 
num = nuatl 
END REPeat read_dir 
CLOSE @3 1 DELETE adv2_dir_tap 
plz = "/" INSTR mesory$ : p2% = * * INSTR meaory$ 
leftZ = aemory$(i TO piz)#.S 
totalZ = meaory$(piz+l TO p2%)#.5 
usedzZ = (totalZ-leftz)#.5 
IF (nua>26) THEN nue = 26 
END DEFine initialise 
REMark INQUIRE 
DEFine PROCedure inquire (old_fnases,new_fnanme$,trace_on) 
LOCal chZ,ch$,maxZ,esc_key,in_range 
PAPER 66,7: CLS 06 
copyright _window 
control _window 
display_dir file$,nue 
BEEP ; trace_on = 8 
REPeat questions 
AT 12,8: CLS 2: INK 71 STRIP 2 
PRINT TO 7,"Please press appropriate letter for file selection 


PRINT "Select between the letter A to 2} wax of 26 Superbasic 


files shown" 
REPeat ask_old_fnase 
chi = CODE(INKEY$(-1)) 
saxt = nuat6s 
in_range = (chZ>=65 AND chZ<=max%) OR (ch%>=97 AND 
ch2Z¢=aax2Z432) 
IF (chZ>=97) THEN chZ = ch2-32 
IF (in_range) THEN 
old_fnames = file$(chi-64) 
EXIT ask_old_fnaae 
END IF 
BEEP 38980,188,208,508,3 
END REPeat ask_old_fnase 
REPeat ask_new_fnane 
AT 12,8: CLS 2 
PRINT " Please input new filenane...press ENTER to 
overwrite file.® 


INPUT "> “;new_fname$ 
IF (new_fname$="") THEN 
new_fnames = old_fnameskh’ tap’ 
EXIT ask_new_fnase 
END IF 
IF (verified(new_fname$,old_fname$)) THEN EXIT 
ask_new_fnane 
BEEP 5880,188,288,1588,5 
END REPeat ask_new_fnane 
AT 12,@: CLS 2 
PRINT TO 2," Would you like to view the resultant indented 
file? (Y/N)* 
REPeat ask_tracking 
ch$ = INKEY$(-1) 
IF (ch$ INSTR "Yy") THEN 
trace_on = 1 
EXIT ask_tracking 
ELSE 
IF (ch$ INSTR "Nn") THEN EXIT ask_tracking 
END IF 
BEEP: 5888,188,288,5088,3 
END REPeat ask_tracking 
AT 12,83 CLS 2 
PRINT TO 11,"Press ENTER if Ok, or ESC to start again! " 
REPeat ask_satisfied . 
cht = CODE(INKEY$(-1)) 
esc_key = (chZ=27) 
IF (esc_key) OR (chZ=18) THEN EXIT ask_satisfied 
BEEP 3888,108,288,588,7 
END REPeat ask_satisfied 
IF (chZ=18) THEN EXIT questions 
BEEP 18808,5,25,1808,6 
END REPeat questions 
END DEFine inquire 


REMark COPYRIGHT WINDOW 
DEFine PROCedure copyright_window 
BLOCK #8,318,68,68,28,8 
WINDOW @2,318,68,88,20 
PAPER 02,2: INK #2,7: CLS 82: CSIZE #2,1,8 
PRINT 82,70 18;"The Space Indenter!" 
CSIZE #2,8,6: PRINT 82,70 28;°@ B.A.W HARUN" 
PRINT @2,FILL$(°-",51) 
INK #2,83 PRINT #2,T0 8;"Please do not remove the cartridge” 
PRINT @2,T0 14;"which is in Microdrive 2° 
END DEFine copyright_window 
REMark CONTROL WINDOW 
DEFine PROCedure contro] _window 
BLOCK @8,486,140,30,182,8 
WINDOW 488,148,58,188 
PAPER 4: INK @: CLS 
END DEFine control _window 
REMark DISPLAY DIRECTORY 
REMark - ONLY DISPLAYS ‘_BAS‘* FILES - 
REMark - OR FILES WITH NO EXTENSION - 
DEFine PROCedure display_dir (file$,num) 
LOCal i,ext#,extZ,sbasic 
PRINT TO 33"Directory of ‘"smediums$;"" “; 
PRINT "= Used :"sused2;"K Left s"yleft%s;"K Total 
t";totalzZ;"K* 
PRINT FILGS("-", 66) 
FOR isi TO nua-1i 
extZ = LEN(files(i)) 
IF (ext2>3) THEN 
ext$ = files(i)(extZ-3 TO ) 
ELSE 
extS = files(i) 
END IF 
sbasic = ("_bas" INSTR ext$) OR ("_" INSTR ext$=8 ) 
IF (sbasic) THEN 


END IF 
END FOR i 
AT 11,0: PRINT FILL$("_", 66) 
END DEFine display_dir 
REMark FN VERIFIED -- 
REMark - CHECKS IF NEW FILENAME CAN - 
REMark - BE USED AND IS VALID = 
DEFine FuNction verified(new_fnases,old_fnane$) 
LOCal i,cl,c2,c3 
cl = (new_fname$(i)<¢"A" OR new_fnames(1)>"2Z") 
c2 = (new_fnames(i)<"a* OR new_fnames(i)>"z") 
IF (cl AND €2) THEN RETurn @ 
IF (new_fnase$==0ld_fnanes) THEN 
new_fnase$ = old _fname$k’ tap’ 
RETurn 1 
END IF 
FOR i=1 TO nue 
c3 = (new_fnames==file$(i)) OR (new_fnases==new_files(i)) 
IF (c3) THEN RETurn 8 
END FOR i 
RETurn 1 
END DEFine verified 
REMark PROCESS 
REMark - OPEN & READS EACH RECORD, 
REMark - CHECK ITS CONSTRUCT, 
REMark INDENTS THE RECORD 
REMark - ACCORDINGLY AND WRITES IT 
REMark - OUT IMMEDIATELY, CLOSING 
REMark - & TIDYING UP AT THE END 
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REPeat check 
IF ( rec$(pos%)<>" " ) THEN EXIT check 
posz = posz+l 
nuaZ = nuei+i : REMark # num of spaces-1 # 
END REPeat check 
nuaZ = (12 # 2)-nuez 
IF (num% > 6) THEN 


2818 DEFine PROCedure process(old_fnase$,new_fname$,trace_on) 
2828 LOCal recs 

2038 OFEN_IN 83, ‘mav2_‘&old_ta 
2048 OPEN_NEW 04, ‘mdv2_‘knew_fnames 
2858 IF (trace_on) THEN 

2868 CLS #8: BLOCK #8,208,38,285,7,0 


2878 CSIZE #8,8,8: WINDOW 208,38,382,5 


2888 =6ELSE rec$=rec$(1 TO piZ)&FILL$(* ",nuaZ)krec$(piz+l TO ) 
2898 BEEP @,3,55,3808,5,1,7,5 ELSE 
2188 END IF IF (numZ¢@) THEN 
2118 INK 2: STRIP 7: CLS rec$#rec$(1 TO pit)&rec$(piZ+ABS(numZ)+1 TO ) 
2128 AT 1,2: PRINT "Running Indentation process!* END IF 
2138 REPeat scan END IF 
2148 IF ( EOF(@3) ) THEN EXIT scan END DEFine indent_line 
2158 INPUT #3, rec$ FN ANOTHER FILE 
2168 check_construct rec$,levelZ,statusZ DEFine FuNction another file 
2178 indent_line rec$,levelZ,statusZ LOCal chs 
2188 IF (trace_on) THEN PRINT #8, recs INK 181 IST RIG OTS 
2198 PRINT @4, recs AT 5,7: PRINT “Would you like to Indent another file? (Y/N)" 
2288 END REPeat scan Mee Recreate 
221@ IF (trace_on) THEN BLOCK #@,288,38,285,7,@ ® 
2228 CLS: AT 1,4: PRINT “Indentation done!!* gah ie INSTR "Yy") THEN 
2238 «IF (level%<>®) THEN tee urn I 
48 AT 2,21 PRINT “ERR RE!* 
pba ELSE Sree Ue ener nA BQEREER REESE IF (ch$ INSTR "Nn") THEN RETurn @ 
END IF 

H " T Si ’ 

pee ae PRINT "BLOCKSTRUCTURE OK Bee sbi0, 300, 2005055 


END REPeat keep_asking 
2286 4 «=6BEEP 6,88,208,188,-5,1,5,18 = 
2298 CLOSE $3: CLOSE #4 END DEFine another _file 


3 4 REMark --- FN ANOTHER CARTRIDGE 
2388 4 8=6IF (old_fname$&‘_tap'==new_fnames) THEN DEFine FuNction another_cartridge 


2318 DELETE ‘adv2_‘kold_fnanes LOCTIMchs 
2328 COPY ‘adv2_‘&new_fnames TO ‘adv2_‘kold_fnase$ 
2338 —sdDDELETE ‘adv2_‘&new_fnanes a Hols Og Gail? 
2348 END IF = = AT 3,7: PRINT “Would you like to use another cartridge? (Y/N)" 
2358 PAUSE 308 SS meet 
2368 CLS #8: copyright_window: control _window 
2378 BEEP 
IF-(ch$ INSTR ‘Yy") THEN 
2368 END DEFine process 
2398 REMark ------ CHECK CONSTRUCT ------- AT @2,2,@8: INK 02,4: STRIP #2,8: CLS @#2,2 


AT @2,3,9: PRINT @2,°You may now take out the cartridge® 


2488 DEFine PROCedure check_construct (rec$,level%,statusZ) AT 2.4.15: PRINT 02,"in aicrodrive 2....." : PAUSE 388 


2418 LOCal keyword$,c1,c2,c3,c4 


2428 status% = 8 een i 

2438 extract keywords, rect wuae 

2448 cil = (keyword$=="REPeat" AND long_fora(rec$)) aes INSTR "Nn") THEN RETurn 6 
2458 4 c2 = (keyword$s="FOR" AND long _fora(rec$)) 

2468 «c3 = (keywordS=="IF" AND long_fora(recs$)) BEEP 5808, 166,288,5,5,5 

2478 «c4 = (keyword$=="DEFine") OR (keyword$=="SELect") END REPeat keep_asking 

2488 «IF (cl OR c2 OR c3 OR c4) THEN END DEFine another cartridge 

2498 levelZ = levelZ+! REMark RESET ---------- ---- 
2588 status% = 1 REMark - RE-ADJUSTS FILENAMES IN ---- 
2518 END IF REMark - DIR ARRAY, IE FILES ---- 
2528 IF (keyword$=="END") THEN DEFine PROCedure reset (old_fnase$,new_fnanes 
2538 levelZ = levelZ-1 LOCal i,x% 

2548 selected = @ FOR i#f TO nua-t 

2558 END IF IF (old_fnanes=files(i)) THEN xZ = i 
2568 IF (keyword$=="ELSE") OR (keyword$=="LOCal") THEN statusz = 2 END FOR i 

2576 END DEFine check_construct FOR isx% TO nua-2 

2588 REMark --------- EXTRACT ==--------—— files(i) = filesiti) 

2598 DEFine PROCedure extract (keyword$,rec$) END FOR i 


new _fileS(new_nua) = new_fnases 
IF (new _fname$<{>old_fnanes) THEN 
2628 space_posn = " “ INSTR r$ new_file$(new_nuatl) = old_fnaaes 


2688 LOCal space_posn, r$¢ 
2618 r$ = rect 


END IF 
2638 =keyword$ = r$(space_posntl TO ) s 
2640 r$ = keywords ao Na fe = new_nuat2 
2658 IF (keyword$(1)=" ") THEN extract keywords, r$ are bese aE 
2668 space_posn = ° © INSTR keywords c 
2078 TF apace poan 8) THE reat ee alin Ga 
2688 keywords = keyword$(1 TO space_posn-1) peace Bn a CCURCHICIRTNENETE 
2698 = ELSE : 
2708 keywords = keyword$(1 TO ) by abel suieaeire ortteed Tt 
2718 END IF 
2728 END DEFine extract Tees CE a8 > (tence 
Gime feNark — EHECKS TF starenent UvED —=- PRIMT 4B," C Proceeding. 1» 
ark - HEN = = D . 
2758 REMark - IS OF LONG FORM OR NOT = rec$ = (rec$(i TO spZ)+l)&’ REMark $8808 LOST LINE ! @06008 


PRINT #4, rec$ 
IF (trace_on) THEN PRINT 68, rec$ 
REPeat get_next_line 
IF NOT EQF(@3) THEN INPUT #3, rect 
spi = " " INSTR rec$ 
IF (sp%=8) THEN 


2768 DEFine FuNction long_fora(rec$) 
2778 LOCal cl,c2,c3,c4fgi$,#g2$ 
27808 «8«c2 = Os ch = B 

2798) «=6fgit = "3 

2888 48 f92$ = "THEN 

2818 ci = ":" INSTR rec$ 


2828 «IF (cl) THEN cist gee 

2838 c2 = ( (rec$(ci TO )=*:") OR (rec$(ci TO ) INSTR fgi$) ) 

2848 END IF Selig rec$(1 TO sp%-1) 

ea oe Fei he a IF (r$¢="32767") THEN EXIT get_next_line 
2678 c4 = ( (rec$(c3 TO )=*THEN") OR (rec$(c3 TO ) INSTR #928) ) END REPeat get_next_line 

2668 END IF check_construct rec$,level%,statusz 

2898 IF (cl AND c2) OR (c3 AND c4) THEN RETurn 1 indent_line rec$,levelZ,statusz 

2988 «=o IF (ci=® AND c3=@) THEN RETurn 1 PRINT @4, recs : 

2918 RETurn @ IF (trace_on) THEN PRINT #8, recé 

2928 END DEFine long_fora PAUSE 188 : 60 TO 2858 : REMark # Process # 
2938 REMark -------- “INDENT LINE --------- 3918 END DEFine proceed 


2940 DEFine PROCedure indent_line (rect,leveiZ,statusZ) 
2938 LOCal 1%,nue%,piz%,pos% 

2968 1% = levelZ : nuaz = -1 

2976 IF (status%>=1) THEN 12% = 12-1 

2988 piz = * " INSTR rec$ 

2998 pos% = piz 
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INTERFACES/EXPANSION 


APRIL 85: 
Hardware on the Horizon II 


JUN 85: 
Driving in 4 Dimensions 


| _DISKDRIVES _| DRIVES 


[MAR-MAY, 
AUG & OCT 85: 


Hardware on the 
Horizon I-V 
MAR 86: 

Of Disks And Drives 


| _HARDWARE _| 


PRINTERS 
FEB 85: 
Printer Impressions 


JUL 85: 
Satellite Stations 
SEP 85: 
Dipping In 


|____ MONITORS 


JUN 85: 
Monochrome Monitors 
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air 


it 


MAY 85: 
Business or Pleasure 


SEF 85: 
System Variables 
JAN 86 ONWARDS: 
Bits On The Sides 


inc 


S: 


TYPE—IT—IN 


AGE Bie: Terminal Emulator ‘ MAY 85: 
FEB 85 ONWARDS: Machine Cove carer APR—MUN 85: : Computer One Assembler Computer One Monitor 
. oir Games Programming 3 MAY 85: 
: Maching Code Tutorial 5 T FEB oh aS FF ie QL Toolkit 
Sound & Vision : OW Bis DNWARDS: Pes: : 
JUN 85 ONWARDS: . wen SEP 85: APR 85: 
seas poration: Graphics on Disolay SuperBasic Compilation Sporting Scene Talented Graphics 
ROMblings 
JUL 85: 


Where to go from here — for the benefit of QL World readers who missed our index chart in the QL User Owner’s Manual, an updated guide to articles and information on 


BOOKS 


FEB 85 ONWARDS: 
Bookmarks 


APR 85: 
Mind Your Own Business 
JUN 85: 
Digital Precision 


| _ PROGRAMMING _| 
FEB 85: 
Cursing Recursion 
SEP 85: 
String Manipulation 
AUG 85: 
Computer Allsorts 


LANGUAGES 


Articulating with Archive 


FEB 85 ONWARDS: 
C Series 

APR 86 ONWARDS: 

Basic Alternatives 


virtually every aspect of the QL contained in previous editions of QL User. 


UTILITIES 


BUSINESS 


COMMUNICATIONS 


AUG 85: 
Telecommunications 


FEB & MAR 85 


Satellite Stations 
MAR 86 ONWARDS: 
QL Comms 


EDUCATION 


JUL & AUG 85: 
QL at School 


FEATURES/REVIEWS 


JUN 85: 
Software File 


UTILITIES 
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QL COMMUNICATIONS 


QCODE TERMINAL software 
Features: 
VIEWDATA TERMINAL — for PRESTEL and MICRONET 
Split baud rate operation (75tx/1200rx) in conjunction with MODAPTOR (see below) — 
necessary for calling PRESTEL. ‘i 
Can handle dynamic frames. 
Full emulation of colours, mosaics, separated mosaics, etc. 
Save displayed page to file on microdrive or disk. 
Save entire session to file on microdrive or disk. 
Replay, create or edit saved pages whilst off-line. 
* Transmit a saved file. 
PLUS 
VT52 (Scrolling terminal) —for use with Bulletin boards, electronic mail services, mainframe 
computers, etc. 
* 80 column (4 colour), or 40 column (8 colour) modes. 
* VT52 control codes, for fancy editors, etc. 
* Additional control codes to set display colours. 
» Alternate keypad emulation. 
x Upload or download text files using standard utilities on host. 
* XON-XOFF protocol. 
PLUS 
* QLto QL file transfer. Any file transferred from disk or microdrive, including executable 
files, Quill documents, etc. 
* Error detecting and correcting protocol. 


GIEMOD ARMOR See ccsste ccc isco care cfe rn canscrserenrees ica, cs crcacticeseventines £39.00 
* Links QL to 300/300, 1200/75, 1200/1200 modem. eg WS2000, PRISM 1000 & 2000, 
NIGHTINGALE, DATACHAT, VOYAGER 11. 
* Includes QCODE TERMINAL software. 
* State modem type when ordering if not 25 way connector. 


* 


or 


* 


QCODE ASSEMBLER _ ...:..:ss:c2:s0-s0ssocesssscssnnsensissnsseciccudecssesesie £12.95 
* with screen editor, fast M/c linker, & object library manager. 
GOODE! GAMES ovestecsesect occseucczncscsnscetsosevevcscraeeucesvsensnenaqcensencuce £4.95 


* 4 games: sprite, lander, wall-up, moon lander. 


MODEMS: PRISM Modem 1000 with modaptor & software . £95.00 

Voyager 7 with modaptor & software £129.00 

Qflash) RAM DISK ose sieccenesesncenessttncsatnsensncinscsnscssevsceveersenactennets 
* Up to 8 devices. Fastest available! Fully QDOS compatible. 


* Speeds up any program that accesses microdrives or disks. 
* Use with unexpanded QL or any memory extension. 


QCODE 
42 Swinburne Road 
Abingdon 

OXON OX14 2HD 


Tel: 0235 28359 


MIRACLE SYSTEMS Ea 


— 14 day money back guarantee on all products — 
— 12 month warranty on all products — 
QL CENTRONICS PRINTER INTERFACE 


* Complete unit including 3 metre cable 
* Plugs into either SER] or SER2 


QL SERIAL CABLE 
* 3metre cable 


QL JOYSTICK ADAPTOR 
* Lets Atari/Commodore/Spectrum joysticks plug into CTL ports 


OTSSCREEN DUMP i cxczctctecscsecteretiesnsannaiveveseciltesuuscuvabevnsncvssvetsese £4.99 
* Copies whole or part of screen to Epson compatible printer 
ODIMIODAPRTOR  cicsscscssssosctstccscundsessinestuevesatessasusdveavectasteasnsaieaitee £39.00 


* Links QL to 300/300, 1200/75, 1200/1200 modem 
QINEXPANDERAM 256 or cconccccsrsecscoceetuscvasvtveecscnrnent?ooritvateateau 


%* 256K RAM with through connector for DISK I/F 
QIUEXPANDERAM 512) visiasisseccccosssasssssitsavssssasesnseassissencesseteses £125.00 
* 512K RAM with through connector for DISK I/F 
QL RAMDISC SOFTWARE ............c:scsccssssssssssssseeessetsseeeseeeesnee £14.95 


* Configures RAM as disk lookalike 

* Ideally suited tt MS EXPANDERAM 

* Enables Microdrive software to run much faster with less wear on 
microdrives 

Fully compatible with Psion packages, SuperBasic etc. 


MIRACLE SYSTEMS LTD Please send CWO. 
AVONDALE WORKSHOPS (UK ORDERS - prices include 
WOODLAND WAY V.A.T. & Carriage). 
KINGSWOOD (OVERSEAS ORDERS - prices 
BRISTOL include Carriage) 
BS15 10L Send SAE for catalogue. 
Tel: (0272) 603871 Ext 210 

SINCLAIR and QL are trade 


marks of Sinclair Research Ltd 
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Exclusive Datalink QL Products 
Datalink SPI — QU wessssssssssssessessesseeseese £19.95 


Serial to Parallel Printer Interface 
Plug-In-And-Go design, compatible with 
any Centronics Parallel printers. 


Datalink RS-232 QL Printer Lead ....... £6.95 
QL to 25 Way D Plug printer lead, 
2 metre cable. 


Datalink QL Joystick  ........ccsssssseeee £9.95 
Quickshot II Style Joystick, 3 fire buttons 
Plug direct to CTL 1 or 2. 


Datalink QL Joystick Adaptor ............ £4.50 
Convert any Atari/Commodore/Spectrum 

joystick to use with QL. 

Plug direct to CTL 1 or 2 via adaptor. 


Prices include Postage, Packing & VAT 
12 months warranty and 14 days money 
back option with all Datalink Products. 


Dealer, Distributor & Export Enquiries welcome. 


Datalink U K Payment by cheque or 


99 Constitution Street Visa Card Welcome 

Leith Telephone for immediate 

Edinburgh, EH6 7AE dispatch 031-553 6161 
031-554 6040 


All trademarks acknowledged 


WDSoftware 


FOR THE QL:- 


JOSS base £13 
Forget that tedious, time-consuming syntax! Just move the cursor and press 
SPACE for all your file commands. Cursor keys or your joystick allow you to access 
microdrives (up to 8) and floppy discs (as many as your interface allows) with up 
to 150 files on each! Scroll and print directories, COPY, DELETE or PRINT any file, 
select TV or Monitor mode before LOADing or RUNning any program. You only use 
the keyboard to set the DATE or label a device when FORMATting. Easy to use with 
Psion and other software. No silly icons to learn — JOSS will TELL you what it’s 
going to do! Programmer's toolkit and mass copying/printing utilities also supplied. 
Specify microdrive-only, Microperipheral or CST-compatible disc versions. 


RefQL7 base £7 
1300 useful QL references with ARCHIVE 2 search/print program. Too long for just 
one cartridge, so if you have RefQL5 just pay £2 and extra media cost to update. 


Mdv Extension Cable £5.50 
Eight inches long, allows addition of extra microdrives to your QL. Twist it to put 
their slots facing you. 


FOR THE QL/SPECTRUM/BBC/ELECTRON:- 
WD Morse Tutor base £4 
Written to teach amateurs, now used by professionals too! Absolute beginner, or 
stretching your speed to 18 wpm, you won't find anything with more helpful 
features. What else can offer 100 random sentences as well as all the basics! Disc 
version unsuitable for BBC B+. 


FOR EXPORT:- 
Hardware & Software from many sources. Ask for details. 


ORDERING — ADD COST OF MEDIUM. POSTAGE £1 OUTSIDE EUROPE. 
Mdv or 5.25” floppy = £2 3.5” floppy = £4 
Pay base only for cassettes. Specify disc size, tracks, system. 


PAYMENT — By ACCESS/Eurocard/MasterCard or STERLING (UK bank 
cheques, Eurocheques, drafts or International GIRO) To:- 


WDSoftware(QU), Hilltop, St Mary, Jersey, C.l. Tel: (0534) 81392 
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FULL SCREEN EDITOR. SUPERCHARGE COMPATABLE. 
JUMp ALTKEY: USer can assign a string to any key no limit on size of 
string (except QL memory), it can be text or a basic program. 

LAST LINE RECALL. JOB CONTROL. RESIDENT PROGRAMS. 

FILE HANDLING. PRINT USING. 

***EXTENDED NETWORK: Allows disc drives, printers etc to be 
shared between QL’S. New Broadcast protocol included. Ver2 of the Toolkit an 
extended (over 100 commands) and extensively improved version of the 
original QL Toolkit. Toolkit comes on 16K EPROM CARTRIDGE together with 
library rack and COMPREHENSIVE MANUAL designed to suit your QL ring binder. 
Quality software by Tony Tebby, Quality product by Care Electronics 


To order see below. 


OL 


HAVE YOUR 14” & 16” PHILIPS & PYE 


COLOUR TV CONVERTED TO A TV/MONITOR ee 
FACTORY 
CONVERSION £80.50a 
RGB KIT £57.50d 
* Resolution better than 585 x 450 pixels. 
* Image clarity comparable to leading monitors. 
* Includes RGB lead for connecting with BBC/QL. 
* Conversions carried out at our workshops within 2/3 days. 
One £10.35c Inc VAT 
Five £34.50c Inc VAT 
Ten 57.50c Inc VAT 


PHILIPS COLOUR , 85 CHARACTERS 


*  TV/MONITORS PER LINE 


16” MODEL 16CT2016 £285.90a Inc. VAT 
REMOTE CONTROL SUPER VALUE 
16” MODEL 16CT2216 £311.65a Inc. VAT 

We can supply up to 26” TV/Monitors— 

please ring for details. * FREE 


LEADS SUPPLIED 
FOR USE WITH QL 


GREEN MODEL BM7502 
@ £83.85b By Post. Enclose your Cheque/P.O. made payable to CARE Electronics. 
AMBER MODEL BM7522 Or use your ACCESS. Allow 7 days for delivery. Please add carriage. 


OPEN: 9am-5pm MON-THUR a)@9.99 c)@1.00 
@ £85.10b ; 9am-4pm FRI/SAT b) @ 8.00 d) @2.00 


UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD’S APPROACH, WATFORD, HERTS. TELEPHONE: 0923 777155 S&S 


LOOK CLOSELY AT THESE 
SANDY SPECIALS ... 


256 K MEMORY UPGRADE 
(MODULAR - FITTED IN. SECONDS ~ Nor Rate 


CEYBO, 
= CAN BE CONNECTED 
TO THRU-CON RAM 
: - ELEGANT QL 
CUSTOM CHIP ‘ MATCHING CASE 
FOR Hi PERFORMANCE : : : : 
AND GOMPACTINESS 


TWIN EXPANSION UNIT 


THRU-CONNECTOR 


256 K D-RAM 


SS CHIP - FAST 
ACCESS (150 nS) 


GOMPACT 
OVERALL SIZE 
(100:x 72mm.) 


SS Se Se ee ee eer ee ee eee eee ee eee 


MN Ba 
FOC ERPORT 


MICRODRIVE 


In return for a small administration charge (per 
(program — including a royalty for the author), we will 
copy onto blank microdrives any or all of the featured 
programs. 
Each program will be a direct copy of the published 
listing, or an extended version of that listing where 
_ the program in question was too long to print in full 
(programs for which an abridged version has been 
_ published are marked with an asterisk). 
It must be stressed that we are not selling the soft- 
ware itself, nor providing any guarantee that it per- 
_ forms any particular function (though we do check 
_ every program that is to appear in Sinclair QL World), 
_ we are merely offering a service to readers who wish 
_ to obtain Sinclair QL World/QL User programs on 
drive rather than by typing them in straight from the 
_ page. . 


; 
; 
r 


| HOW TO ORDER 


Listed below are programs which have appeared as 
listings inside QL World/QL User and Sinclair QL 
World. 

To the right of each program entry is a small box, 
which you should mark with a bold cross if you want 
to order that program. 

Once you have put a cross next to all the programs 
you wish to have copied onto microdrive, simply 
complete the rest of the order form and send it along 
with your PO/cheque AND BLANK FORMATTED DRIVE 
to: 

MICRODRIVE EXCHANGE, 

Sinclair QL World, 

79-80 Petty France, 

London SW1. 

If you wish us to supply the drive, please add an extra 
£2.50 for every drive required and mark the order 
form appropriately. 

Please allow 28 days for delivery. 
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] Andy Carmicheal (B) Family Tree £3.00 Aug 100 
2 Archive program and database for setting up and displaying large family trees 
I James Lucy (B) Composer £3.00 Oct 50 
Compose and play sheet music on the QL = 
Mathew Capp (B). Miners £2.00 Aug 30 
A nail biting management simulation that puts you in charge of the NCB 
I Py smith (B) * DIY Adventure £1.00 Feb 60 


EXCHANGE 


Author Language Program Name Price ; Issue Size 
] Giles Todd (B) DIY Assembler £5.00 Mar/Jun 1207) 
Converts Assembler source into m/c object code 
Richard Cross (AO) —— Mini Monitor £3.00 Oct 60 
Pocket sized monitor with comprehensive facilities > 
I A Didcock (B) Connect4 £1.00 Sept 150 
] Pit your wits against the QL 
] Shergold & Tose (B) * Golf £2.00 May 350 


From fairway to green on 59 different courses of varying difficulty 

Williams & Holliday (AQ) Paladin £5.00 Apr 700 
| The basis of our games programming series — a space invaders type game written entirely machine 
] code - 
] Richard Cross (MB) Sprite Animation £2.00 Apr 50 

A subtle blend of machine code and SuperBasic that produces a versatile sprite designer and high 
] speed animator : 
] Steve Deary (B) Pacman 
] A reasonably fast rendition of the famous arcade favourite 


£1.00 Ma 200 


] A skeleton framework where you simply have to slot in the details to create your bespoke adventure 


R Green (B) Qthello £1.00 Aug 25 
| A 3D version of the well known board game Othello for one or two players 


j SJ Ackers (B) *Touch Type £4.00 Aug 80 
Touch typing course — 14 lessons, on-screen keyboard, 800+- word vocabulary and WPM readout 


B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + 
| Basic loader 


| Name 

Address. 

Noofprogramsordered _.............. Totalcost £............ 

| Total sectors 

| (max200perdrive) —............ 

] Noofdrivessent = ............ 

| Noofdrivesrequired —............ @ £2.50each £............ 

! Plus postage & packing £ 0.75 

] Sub total £........... | 
i I 
Add VAT (@ 15% £............ ; 
] TOTALTOBESENT £........... | 


1 Please copy onto microdrive the programs above which I have indicated with | 

I accross. | enclose a cheque/PO to the value of £ .........-.... (made payable to 
QL World). | understand that Sinclair QL World only undertakes to SUPPLY | 

i these programs (copied onto microdrive) and accepts no liability for their I 
operation as defined by the author. Neither can Sinclair QL World supply 

I additional information about any of the listings other than that originally ! 

| printed (any article reprints required must be ordered and paid for separately | 

j at £1 each inclusive of post and packing). { 
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INSTANT 


ACCESS 


A>Line Computer Systems 
0533 778724 

4-way mains filterladapter 
Action Computer Supplies 

01 903 3921 

Mains spike eliminator 

Anglo Services Ltd 

0705 671421 

QL Eprom Programmer 
Broomspring Specialities 

0742 737000 

Table-top stands 

Cambridge Microelectronics Ltd 
0223 314814 

Q-PROM Eprom Programmer 
Cambridge Systems Technology 
0223 323302 

Care Electronics 

0923 777155 

Philips and other monochrome monitors 
Commpak Data 

0792 473697 

Computer Supplies 

146 Church Road, Boston, Lincs 
Joysticks 

Compware 

0270 582301 

Disk drives, memory, monitors etc. 
CST 

0438 352150 

Data Distributors Ltd 

0990 28921 

Kaga, Sinclair Vision 

Eidersoft 

0708 851099 

QL Mouse 

Eprom Services 

0532 667183 

Tony Firshman Services 

01 267 3887 

Mains Spike Filter 

4 Systems 

68 Foxwood Close, Feltham, Middx 
Cartridges & box 

Management Science Ltd 

17 West Hill, London SW18 

QL case 

Microworld 

0293 545630/0273 6711863 

Kaga, Epson, Smith Corona, Microvitec, 
Philips, Vision 

Miracle Systems Ltd 

0272 603871 

Modem House 

0392 69295 

Opus Supplies Ltd 

Redhill 65080 

JVC 

PCML Ltd 

0372 67282/68631 

QL+ RAM cards 

Power International 

0705 756715 

Mains spike eliminator 
Printerland 

0484 514105/687875 

Epson, Brother, Kaga, Canon, Juki 
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Q-Links 

0436 6660 

Cables & accessories 

Silicon Express 

0533 374917 

Sinclair Research 

0276 685311 

Slave Software 

050 846 8866 

Q-Disc 

SMC Supplies 

01 441 1282 

Joystick adaptor, Centronics & Epson Serial 
Spectrotek 

0669 20565 

QL repair service 

Strong Computer Systems 

0267 231246 

Brother, Shinwa, Epson, Kaga, Mannesman 
Tally, Canon, Daisystep, Smith Corona, 
Microvitec, Philips 

Tandata 

06845 68421 

(OEL) 

Technology Research Ltd 

0784 63547 

Transform Ltd 

089 283 4783 

QL dust cover, microdrive storage box, 
RS232 lead 

Twickenham Computer Centre 
01891 4991 

Kaga, Ensign, Canon 

Viglen Computers Supplies 

01 843 9903 

Voltmace Ltd 

Park Drive, Baldock, Herts 

Printer stand 


Accountancy Software 
Sinclair Research 

QL Cash Trader 

Adder 

0223 277050 

Q-Doctor, Assembler 
Aleph (Finland) 

358 67 77408 
Ql-Numerical, QL/IOR 


Bridgebrook Intek 

45 Burleigh Avenue, Wallington, Surrey 
Bank Manager, Diary Manager, Thought 
Manager 

Champagne Computers 
Amsterdam 020 149130 

QL boek, DR Q Leap 

Co-op Soft Ltd 

0272 22223 

Civil/Structural Engineering 
Compugem Ltd 

01 731 7948 

Master Blaster 

Computer One 

0223 862616 

Pascal, Forth, Assembler, Typing Tutor, 
Monitor 

CP Software 

10 Alexandra Road, Harrogate 

Bridge Player 

DA Bandoo 

81 Mount Pleasant, Wembley 
Assembler, Screen Editor 

Data Management 

0904 760351 

SBUTIL, Mbackup, Terminal, Chargen, 
SBextras, FM 


DataGEN 

0989 67469 

Packages for Solicitors, Accountants, Video 
Libraries, Double Glazing Sales & 
Miscellaneous Credit Control. 

Digital Precision 

01 527 5493 


QL Super Sprite Generator, Games Designer, 


Monitor + Dissassembler, OL Super 
Backgammon 

Eidersoft 

0708 851099 

QL Art, Zapper, QSPell, Archiver, BJ II Il 
Citadel, Spook, ICE, Integ Accounts 
English Software 

061 835 1358 

QL Hyperdrive 

Equate 

2 Ffordd Denwyn, Penyffordd, Chester 
Solar Invaders, Wall Breaker, Draughts, 
Mind Your Path, Statistical Averages, 
Calendar 

Flite Software Ltd 

O1 353 7423023 

Equate (maths package) 

GST Computer Systems 

0954 81991 

QL Assembler, 68K/OS, OC C Compiler, 
Macro Assembler 

Hisoft 

0582 696421 

MonQL 


Israel Software Research 

41 Kfar Chabad, ISRAEL 60978 
Matzab Ball Game 

J&D Software 

3 Alfred Road, Lowton, Warrington 
Leisure Genius 

01 935 4622 

QL Scrabble 


Metacomco 

0272 428781 

Assembler, BCPL, Lisp 

Micro Processor Engineering Ltd 
21 Hanley Road, Southwater, Horsham, E 
Sussex 

QL Terminator Emulator 

MicroAPL 

01 622 0395 

Microdeal 

0726 68020 

Havoc, Frogger, Cuthbert 
Micrologic Consultants Ltd 

57 Station Road 

MPC Software 

0602 820106 

Most popular games 


New Horizon Software 

Fourwinds, 30 Cwm Lane, Rogerstone, 
Gwent 

Pacman, QBERT, Gold + others 


Paddy Software 

0726 832718 

Educational Programs 

PCS 

8 Oak Grove Way, Bridgwater, Somerset 
PCS Utilities 

Peak Electronics 

32 Clifton Avenue, Hartlepool, Cleveland 
QL Colour Quest 

Portfolio Software 

PO Box No 15, London SW11 

Positron Computing 

0554 759624 

Hi-res screen dump 


Printerland 

0484 513105/687875 

Psion Chess, Metacomco Assembler 
Prospero Software 

01 741 8531 

Pascal, Fortran-77 

Psientific Software 

0482 649187 

Keydefine, Q-Calc Calculator, Real Windows 
Psion 

01 723 9408/0553 

Quill, Abacus, Easel, Archive, Psion Chess 
QCode 

42 Swinburne Road, Abingdon, Oxon 
Terminal Enulation, 68000 Assembler/ 
Editor 

Qjump 

Sinclair Research 

QL Monitor, QL Toolkit 

QSoft 

01 499 7417 

Agenda 

Quest 

04215 60488 

Business Accounts 

S&B Software 

20 St Nicholas Street, Diss, Norfolk 
Fantasia Adventure 

Saltgrade Software 

31 Royal Terrace, Edinburgh EH7 

File Manager, File Editor 

Slave Software 

050 846 8866 

Arable Farmer Software 

Strong Computer Systems 

0267 231246 

Super Plant Software 

097 423 223 

Plant & gardening software 

Swansoft 

164 Vicarage Road, Morriston, Swansea 
Space Trek 

Talent Computer Systems 

041 552 2128 

SKUL, WEST, GraphicQL 

TDI Software Ltd 

0272 742796 

USCD Pascal, USCD Fortran 77, Advanced 
Development Toolkit, USCD P-system, USCD 


Prolog 
TR Computer Systems 
093 924 621 
QL Payroll 
Tropic Software 
09274 27497 
Bongolia Escape 
WD Software 
0534 81392 
Hilltop, St Marys, Jersey 
WD Morse Tutor 

BOOKS 
Adder Hutchinson 
0223 277050 01 387 2811 
Century McGraw Hill 
01 434 4241 0628 23431 
Collins Melbourne House 
01 493 7070 01 940 6064 
Duckworth MicroPress 
01 485 3484 0892 39606 
Ellis Horwood Ltd Prentice Hall 
0284 789942 0442 58531 
Granada Sunshine 
01 493 7070 01 437 4343 
Harper & Row 
01 836 4635 
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COMPUTER CLEANERS 


STOP LOCK-UPS AND DATA CORRUPTION 
(due to mains inteference) 
DO YOU GET LOCK-UPS? 
DOES YOUR DATA GET CORRUPTED? 

If this is due to mains interference then our plugs may be the answer 
As well as cutting high voltage spikes they smooth the cut spikes and filter RF 
interference from 1 to 30 MHZ (30db) and up to 130 MHz. 

Some customer comments: 

“With the cleaner ... (locking up) ... is no problem now” — Electrical engineer. 
“ .. these computer cleaners work” — Computer user group. 

“ ... the device is the answer ... (loading problems)” — BBC owner. 
“Lock-ups are cured” — Golf Club QL. 

“It seems to work fine. No lockups yet” — for use in Papua New Guinea. 


“Thank you for Unbelievably prompt delivery” — Concrete manufacturer. 
“| shall recommend your product ...” — Bedford customer. 


ADAPTOR -— { three pin socket . 
TRAILING 4-WAY SOCKET 


Simply plug either in — no wiring required. 
TONY FIRSHMAN SERVICES 
43. Rhyl Street, London NW5 3HB. 01-267 3887 


JOYSTICKS FOR QL 


Plugs straight into control port 1 or 2. 
NEEDS NO INTERFACE OR ADAPTOR — £7.99 each or £15 for two. 
Add 50p p&p. 

Two joysticks plus CONCENTRATION (an addictive 1-4 player game) on 
microdrive cartridge for only £23.95 inclusive. Game only: £10.95 inclusive. 
Send to: COMPUTER SUPPLIES 
146 Church Road, Boston, Lincs. PE21 0JX. 


. £14 inclusive 
. £24 inclusive 


QfLash presents 
RAM disk for the QL 


New version 2.4, now even faster than before! 

Twelve times faster than other RAM disks QL screen image (32768 bytes) 
loads in 0.119 seconds! 

\/O-intensive programs run up to 100 times faster 

No bugs reported since initial release in August 1985 

Full dynamic memory allocation —no FORMAT command necessary. 

No memory reserved for file data unless really used for your files 

Up to 8 RAM devices can be used with up to 50 files each 

No limits on the length of files or RAM devices 

Works on standard (128K) QL and with all QL software, and takes full 
advantage of expansion memory up to the 640K maximum 

Just as easy to use as microdrives or floppies, but much faster 

Due to the high demand, we are glad we can offer you a new low price of £17.- 
or DM 62. (all included) 


Send Eurocheque to @QfLash, Post Box 102121, D-2 Hamburg 1, 
West Germany or call (Hamburg) 6512742 or 7650461 


+t 4% HHH HH 


curry 
computer 


Hardware, Software, Peripherals, 
Printers, Books, Magazines, Accessories 
P.O. Box 5607 e Glendale, AZ 85312-5607 U.S.A. 
1-602-978-2902 e Telex (via WUI): 6501267701 
DEALER INQUIRIES WELCOME 


REVISION on the QL by PADDY SOFTWARE 


Q REVision — the structured, clear & concise data is independent of Q REV. Hence, 
subjects can be used interchangeably. Purchase Q REV once with the 1st subject — buy 
just data thereafter 


Subjects at ‘O’ Level: 
Q PHYS, Q CHEM — both cover most of all syllabuses. 


Q HIST — Gladstone, Disraeli, Eastern Question 1874-8, Liberals 1906-14, Salisbury, 
Parliamentary Reform, Clash with the Lords, Women & the Vote, Trade Unions, WWI (West- 
ern Front, Causes, at Sea, against Turkey, at Home). 

Q REV & 1st Subject — £12 Additional Subjects £7 
Q VERB — iesis 40 French Verbs — regular, irregular, reflexive. Especially written line editor 
allows accents to be added/changed/removed visibly as you type. Verbs, tenses & persons 
can be selected by the user or generated randomly. 

Q VERB is separate from Q REV; on its own — £8 
Prices include p&p, VAT & full instructions - Overseas orders £1 extra 


Phone 0726 83 2718 or send SAE for details to: 
PADDY SOFTWARE, Paradise Cottage, Golant, Fowey, Cornwall PL23 1LH. 


Your Complete Sinclair Stockist 
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Software2000 — QL software for the professional user 
VT52 TERMINAL EMULATOR £19.50 
Connect your QL to a mainframe host computer such as Digital VAX and PDP. Permits full screen edit and keypad functions. Easy to use 
FILE TRANSFER feature. 

TEXTRONIX / WESTWARD / VT52 TERMINAL EMULATOR £39.50 
Your QL becomes a full graphics terminal for use of sophisticated mainframe graphics programs. Graphic mode provides line drawing, 
selective erase, block erase, write through mode and graphic input. VT52 mode and FILE TRANSFER feature. Easily configured via SETUP 
screen. 

QL BACKUP / RESTORE New Version 1.2 £8.00 
The FAST way to create security copies of microdrives/disks. Provides selective BACKUP, RESTORE, DELETE, LIST and FILE CORRECTION 
features. 

PRINT2000 for Brother M1009, Epson & Equivalents £8.00 
Prints files in the format and style you want. Easy 4 page SETUP feature to set paper width, line spacing, font etc. Special Double Column 
& Hexadecimal print formats. Wild card feature prints of all _bas files on cartridge etc. 


All programs 100% M/code. Note QL hardware is restricted to 1200 baud comms. 
Unique Trial Offer — Send for details 
Software2000 Oxford House, 258 Garstang Rd, Preston PR2 4QB 


We are a Software House based here in the UK 
as well as in the USA. We will pay excellent 
royalties for quality software written for the QL. 


Contact us immediately and let us make you 
your best deal. 


Gryphon Software Systems Ltd 

P.O. Box 255 

Bridgend, Mid. Glamorgan CF52 OYE. 
Tel:- (0656) 744679 


QL BUT NO PRINTER? 


We print your Quill documents on top quality paper (100 gsm) using daisy wheel printers with carbon ribbon. 
Prices: 1-5 Pages ..... 

6-20 Pages 

21+ Pages .... ae 
Dot matrix Quill drafts and QL program listings : 12p/page. Please add 45p post and handling charge for orders 
under £3. 
Send for full details or QL microdrive cartridges with clear instructions to: 

DATA PRINTING SERVICES 
25, Seymour Road, Bath, BA1 6DY 

Please note: we suggest that, in keeping with good software practice, you send only backed-up microdrive 
cartridges, clearly labelled. 


==== BREAKTHROUGH SOFTWARE ==== 
GREAT INNOVATIONS FOR THE QL AT SENSIBLE PRICES 
REAL WINDOWS!!! £6.50 inc cartridge & p&p 


Each Real Window is stored off screen. It can be swapped with the part of the screen it overwrites, altered and 
then swapped back again. Several windows can be overlapped and ‘shuffled’ onscreen. Makes professional Pull 
Down menus, possible as the screen is restored to its original state when the window is put away! Text and 
graphics are both handled! Real Windows are controlled from basic using only three commands (all machine 
code):- 
BREAKTHROUGH ON-LINE SUPERBASIC MANUAL £8.50 inc cartridge & p&p 

Press the F] key and the screen you are working on (text, listing, graphics inlcuding multiple windows) is saved 
instantly! Enter a Superbasic Keyword and everything you want to know is displayed on screen. Flip between 
screens to check syntax etc. Contains ALL Superbasic commands and much more. Create your own help files with 


MULTITASKING PRINT SPOOLER £6.50 inc cartridge & p&p 
Touch a function Key then type in the input filename and the output file device. It will be sent to the printer or net- 
work or even another file, whilst you continue with what you were doing. Fully machine code and multi tasking. 
Works from within Psion packages! Includes command to exit and re-enter Quill from Basic. 


FAST LOADER FOR SUPERBASIC £7.50 inc cartridge & p&p 
Loads even the longest Superbasic Program as quickly as professional software packages. Saves and loads all 96K 
of Systems Variables, SuperBasic program, variables, data and machine code routines as a single binary file! 
EVERYTHING loaded and ready to go in one operation! 


* x x FREE « * *« FREE PROGRAMS * * x FREE * * * 
8 M/C BASIC COMMANDS + SCREEN DUMP & RECALL 
FREE WITH ALL PURCHASES 


GETN & GETS Allows you to edit variables on screen. MCCUR Moves the cursor up down left or right TAB Moves 
the cursor to the given column no (left or right). FONT Allows you to reset the font address. Makes user designed 
graphics possible. RMODE returns the current display mode, DUMP dumps | or more lines from the screen to 
the printer. BVAR returns address of Basic Variables. PLUS HI RES SCREEN DUMP to pmnter at the touch ofa key 
AND RECALL. F5 gets back the last line you typed (as in archive), edit your errors and re-enter the line. 


17SHAFTESBURY WAY, ROYSTON, HERTS. SG8 9DE Tel (0768) 45482 


QL POOLSWINNER 


The ultimate pools prediction program 
® MASSIVE DATABASE Poolswinner is a sophisticated pools prediction aid. It comes complete with a large 
database — 22000 matches over 10 years. All English and Scottish team names are in the database. 
PREDICTS Not just score draws, but no scores as well. 
SUCCESSFDUL We guarantee that poolswinner performs considerably better than chance. 
UNIQUE The precise prediction formula calculates the actual efficiency of every team as the results come in 
and with speed. As far as we know there isn't another pools predicting program that uses this method. 
ONLY £14.99 (all inclusive) 48 hours delivery from: Techsoft, 24 Wharncliffe Street, Barnsley, South Yorkshire 
S70 6BP. 


RACQUET SOFTWARE presents 


NIGHT FIGHT AT THE QL CORRAL 
A 2-player Western Shootout 
Also ... Multi-tasking MODE-8 Screen Dump 
(Epson compatible) featuring true or inverse 
representation 
Prices: NIGHT FIGHT game ......... 
MODE-S8 Screen Dump 
OR if ordered together 
Please add £1.00 p&p (regardless of number of 
copies). Send cheque/PO to RACQUET 
ENTERPRISES LIMITED, P.O. Box 300, 
Welwyn, Herts AL6 9NU. 


QL 


WORLD 


CLASSIFIED 


FOR DETAILS 
RING 01-222 9090 
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CLASSIFIED 


Births, Deaths, & Marraiges 


Born April 7th 1986 
Mice 


PARENTS: Eidersoft 

SEX: QL 

PEDIGREE: Apple Mac’™ Quality Mouse 
Control; Romport Interface 
DISTINGUSHING MARKS: 3 red buttons 
COLOUR: Black 

SIZE: 90x60x25mm 


WEIGHT: £89.95 or £65 if you already own ice 


Eidersoft Mice come complete with (C€ and Art ice 
mouse graphics. (optional CHOice and ICE Toolkit) 


ae a aa a a a errs 
| Please reserve......... Mice from the Ist litter @ £89.95 

j each +£2.50p&p or £65 +£2.50p&p if you have ICE* 
Bye Names tot ee de PoswC€odess-.. ee 
PNCLTESS 6 9 5 eters a eter a Ooe ote cocaine ease aece's puisunsncet easeoesen 
eres et Sierra a eee en eo 
I 

Begs cscs ns sose cmon os sho) cos saben nct oe A SRLNE ces u inn sovetapie cS adatiesslavcuke 


I would like further information only (] 


I would like to order C.O.D. Signature..............ccccceeeeeee 
Note: Europe less VAT @ 15% +£5p&p 
*Requires return of ICE Rom 


Waytme WelINOy ces. spate as- sctsvestanttsvsrocsetvonsceeatssscctatee 
enclose a post dated cheque tOrG....:..--...2-2e00-7-seserreeeees 


I 
I 
I 
I 
I 
I 
I 
MM iit | 
I TRADING POLICY: No cheques or credit cards will be 

| cashed/debited until April 7th 1986. (allow 10 days for delivery) 

| TM Apple Mac is the Trademark of the Apple Corporation. 

I Eidersoft, The Office, Hall Farm, Ockendon, 
| Upminster, Essex RM14 3QH. 

Telephone: 0708 851099. 


WANTED 


We urgently require programs for the SINCLAIR QL in 
the following categories. All programs will be considered 
regardless of source language — generous royalties — 
Business; Specific Business Applications; Technical / 
Scientific; Languages; Educational; Business Games; 
Graphics/Art; Utilities; European Language Programs. 


1 
I 
I 


If you would like to earn from your efforts, write or 


telephone Simon Williams for an application form today! 


Eidersoft Simply better QL Software 


The Office, Hall Farm, North Ockendon, Upminster, 
Essex RM14 3QH. Telephone: 0708 851099 
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4 Double 34" Cumama Drive 
b 


eTHINKING ABOUT EXPANSION 7 
®LOOKING FOR LOW PRICES? 


@®WANT IMMEDIATE DELIVERY? 
cONTAGT BRAIN, 
wer ac hit Se, 
4 0% E- g 
Typicel Systems Avaliabie 


EXCLUSIVE 
vat ZAT 


4 PCML 256k ram + Rom Toolkit 


+ Disco Interface £225.00 £258. 


2 PCML Rom Toolkit + 


+ Diso Interface — 84.00 £ 96. 


3 Single 34" Cumama Drive 


to 720 kb & 92.00 


to 1440 k £165.00 


PRICED SYSTEMS READY CALCULATOR 


£176. 
£249. 
£317. 


Delivery 


BRAINSELL. 
+4 Penns Road, Petersfield, Hants GU32 26N 
Tel. (0730) 66700 


ABC ELEKTRONIC 
BYTE BACK 

CARE ELECTRONICS 
COMPWARE 
DATALINK 

D. S. ENTERPRISES 
DIGITAL PRECISION 
EIDERSOFT 
FARMINTEL 

4 SYSTEMS 
KEMPSTON 


Sinclair/QL World April 1986 


STRONG COMPUTER SYSTEMS 


BRYN COTTAGE, PENIEL, CARMARTHEN, DYFED SA32 7DJ 
TELEPHONE: 0267 231246 


FULLY TESTED QL COMPUTER £199 
WITH VERSION 2.3 SOFTWARE 


PRINTER PRICES INCLUDE MIRACLE SYSTEM INTERFACE MONITORS (CABLES INCLUDED 

SEIKOSHA SP1000A OR SINCLAIR BADGED SERIAL Microvitec Cub 1451/DQ3 Colour 

EPSON LX80 Microvitec Cub 1451/DQT3 with Swivel Stand 

EPSON LX80 WITH TRACTOR FEED . Swivel Stand for Microvitec 

TAXAN KP810 i 

TAXAN KP910 

QUEN DATA DAISYWHEEL 3250 WATT MAINS FILTER 

Miracle Systems Parallel Interface .. * Provides four protected mains sockets with plug 
Serial Cable * Avoid crashes and damage to the QL’s components 
% 30db suppression 1MHz to 30MHz 

% 130 joules spike suppression 


ACCESSORIES 
4 Microdrive Cartridges £8 


F : MICRACLE SYSTEMS MODAPTOR 
‘ eae BOR — * Link your QL to any modem with an RS232C socket 


* Prestel and Bulletin Board software included 
Brother M1009 .... 
Quen Data 


x BUDGET RAM & DISK UPGRADES x « 


Replace Miracle Systems Expanderam — giving 640K Total 
Stacked Disk Drives 3.5” 720K formatted 
Cumana interfaces with Toolkit & RAMDISK function 


STACKED DUAL DISK DRIVES + INTERFACE + EXPANDERAM £399 
MIRACLE SYSTEMS 512K EXPANDERAM £119 


SINGLE 3.5 DISK DRIVE + INTERFACE £199 
STACKED 3.5 DUAL DRIVES + INTERFACE £289 
10 QUALITY DS/DD 3.5 DISKS IN LIBRARY CASE £34 
LOCKUP STORAGE BOX FOR FORTY 3.5” DISKS £14 


Includes: 
x DISK HEAD CLEANER FOR 20 CLEANS 
x ANTI-STATIC MONITOR SPRAY 
* KEYBOARD CLEANING SOLUTION ae 


SOFTWARE TALENT ZKUL MICRODEAL HOPPER 
LANGUAGES TALENT WEST MICRODEAL CUTHBERT/SPACE .. £12 
METACOMCO ASSEMBLER ot . é MICRODEAL CRAZY PAINTER £11 
METACOMCO BCPL 5 y MICRODEAL FLIGHT SIMULATOR £16 
METACOMCO PASCAL .............. QL HOME FINANCE (BUZZ) QL SPRITE GENERATOR £20 BJ RETURNS 
METACOMCO ‘C’ TYPING TUTOR £20 QL SUPERBACKGAMMON MATCH POINT .. 
PSION CHESS QDRAW 
EIDERSOFT QSPELL (CART) HYPODRIVE QL SUPER ARCADIA .. 
EIDERSOFT QSPELL (DISK) DIGITAL REVERS! 
STEVE DAVIS SNOOKER DIGITAL ASTROLOGER .. 
TALENT COSMOS MASTER BLASTER 
QL CAVERNS = QL BOUNDER 
QL METEOR STORM .. 
EIDERSOFT ICE CHOICE QL FICTIONARY .. 
EIDERSOFT ICE EPROM ON ITS OWN CITADELL 
IDERSOFT ICE EPROM WITH SOFTWARE COMPENDIUM 
se ZAPPER with EAGLE .... 


NEMESIS 


* ALL PRICES INCLUDE VAT AND NEXT DAY DELIVERY BY INTERLINK * 
* OR FIRST CLASS POST x 


r 


* Addictive arcade action 
» Continuous music and sound effects 


¥ 
+ Up to 21 moving full colour SP 
* One or two player game option 


+ Joystick! Keyboard 


